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SPECTRUM 16K, 
48K,128,and + 



LCE 

T"W ACORN ELECTRON, ^ 
rJ BBC B and B+ 

L&JviC20^J 



ZX81 



COMMODORE 64 and 128 



DRAGON 32 and 64 



TANDY TRS80 
COLOUR COMPUTER 
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INCORPORATING MUSIC DATA 



CHANGING THE TEMPO 



COMPLETING THE HARMONY 



GENERATING A NEW 



HARMONIZING CHORD 



There's no need to stick to one- 
finger tunes, with our Playing in 
Harmony program you can progress 
to playing chords or simultaneous 
melodies and harmonies 

The two previous musical articles published 
in INPUT discussed simple music theory and 
how to turn your computer into a musical 
instrument (pages 669-675), then how 
to incorporate music data in a program 
which subsequently scans through and 
plays the sorted tune (pages 701-707). 
But both these concentrated only on a 
single melody line. 

This article goes one step further 
and provides programs that allow 
chords, or simultaneous melodies 
and harmonies to be played. 
Although the theory of this has a 
general application, of the computers covered 
here, only the Commodore 64 and the BBC 
have sound chips which render them capable 
of playing more than one note at a time, so 
only programs for these two are included. 

The programs given here adopt the same 
conventions as the two previous articles, so 
you may want to reread these and refresh your 
memory before you tackle the new 
techniques. 




WHAT IS A CHORD? 



A chord is simply any group of notes played 
simultaneously. If you play a handful of 
random keys on a piano, that produces a 
chord, although — confusingly — the sound 
produced may be discordant. The commonest 
and most pleasing chords contain three notes, 
and are related to the major do, re, mi scale 
discussed previously. 

If you take do, the note two notes above it, 
mi, and the note two notes above that, so — 
these are C, E and G in the scale of C major — 
and play these notes together, this is an 
example of the simplest and best known of all 
chords — the major chord. The name of the 
chord is derived from the note it is built up 
on: if this note is C, it is called the chord of C 
major. 

Any major chord has four semitones be- 



tween the bottom note and the 

middle note, and three semitones between 

this and the top note. 

You can also have a different sort of 
chord — a minor chord — which has three 
semitones between its bottom note and its 
middle note, and four between the middle 
note and the top note. So major and minor 
chords both span seven semitones, but their 
middle note is slightly higher or lower. This 
gives the two chords different sound quality: 
the major chord is usually considered brigh- 
ter, and the minor chord sadder. 

You can build up one other type of chord in 
this way in a major scale. Starting on ti, or B 
in the scale of C major, this chord contains B, 
with D and F from the next octave up. This 
has three semitones from its bottom to its 
middle note and three from its middle to top 
note. This is called a 'diminished' chord, and 
is used much less frequently than the major 
and minor chords. 

There are seven notes in the major scale, on 
which can be built three major, three minor 
and one diminished chord. The three types of 
chord are sometimes known as triads, since 
they have three notes, and the note on which 
the chords are built is known as the 'root', so 
the root of E minor is the note E. The diagram 



overleaf shows how these 

chords might appear in sheet music. 

Notes that are to be played simultaneously 

appear one above the other. 



HOW CHORDS ARE USED 



If a tune in C major has the note C in it at a 
given point, then any chord that also contains 
C will harmonize with it and produce a 
pleasing sound, richer than the melody on its 
own. 

The major chords C and F major and the 
minor chord A, all contain the note C, so all 
three of these chords will harmonize with a 
melody note C. The melody note can act as 
either the top, middle or bottom note of a 
triad, so any note can be harmonized with 
three different triads. C, for example, is the 
bottom note of C major, the middle note of A 
minor and the top note of F major. In fact, if a 
melody contains C, then only an additional 
two notes are needed to give the complete 
three-note chord; E and G, to give the chord 
C major. In this case the melody note func- 
tions both as part of the melody and also as 
part of the chord. 
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In the chord of C major, C need not always 
be the lowest note. It doesn't matter which 
note is at the top or bottom, or even if there is 
more than one of any of the constituent notes. 
Arrangements which don't contain C at the 
bottom of the chord are known as 'inversions' 
of the chord. The diagram on the previous 
page shows a few different arrangements of 
notes, all of which make up a chord C major. 
The same principle applies, of course to other 
chords. 



HARMONIZING 



The following program reads in a single 
melody line from the DATA statement at the 

Softer Sound on the Commodore 

In the first program in the main article the 
SID chip is programmed to produce very 
characteristic bold sounds using saw- 
tooth waveforms. 

The chip can produce different sounds 
using different waveforms by POKEing 
with different numbers. The Line to look 
at is Line 3010. Originally EN and EF were 
set to 33 and 32. If you change the values 
to 17 and 16, you are instructing the SID 
chip to produce more pleasing sounding 
triangular waves instead. 



end of the program and plays this melody 
along with two notes, a little lower in pitch 
than the melody, which harmonize with it. 

A random process is used to generate the 
other two notes of the three-note chord, so the 
actual harmony will vary each time the tune is 
played, but the chord produced is always a 
triad from the key of C major. As it stands, the 
DATA statements already contain a melody, 
but you could try any tune in this program, so 
long as it is in C major: in other words make 
sure that the do in your tune corresponds to 
C, with pitch number 1 3. Also don't let the 
melody fall below this note. This still gives 
you two octaves to play with, and the lowest 
octave^ with pitch numbers below 13, will 
contain the two notes completing the 
harmonization. 

The notes in all three voices change at the 
same time, Whenever the melody note 
changes, a new harmonizing chord is gen- 
erated. The program will produce sensible 
harmonies, though not brilliant ones. 

The melody 'When the Saints Go March- 
ing In' is stored in the DATA statements at the 
end of the program; one bar of music is stored 
in each DATA statement. The diagram (right) 
shows the opening of two variations that the 
program may produce. The melody is the 
same in each case, of course, but the har- 
mony varies. With the first one, the four 
chords are F major, C major, B diminished 
and G major, and the second is C major, E 
minor, D minor and C major. 



10 GOSUB 3000 

20 INPUT "□TEMP0";TP 



30 GOSUB 4000 

40 GOSUB 5000 

90 K1 = 1:K2 = 2:K3 = 3:K4 = 4:K5 = 5 

100 READPV,T:IFPV = 0THEN180 

110C = TB(PV) 

120I1% = RND(K1)*K2 + K2:IFI1% = K3THEN 

I2% = K5:GOT0135 
130!2%=RND(K1)*K2 + K4 
135 I1%=C-I1%:I2% = C-I2% 
140 P0KEL1,LQ%(PV):P0KEH1, 

HQ%(PV) 
150POKEL2,LQ%{TA{I1%)): 
P0KEH2%,HQ%{TA(I1%)) 
160POKEL3,LQ%(TA(I2%)); 

POKEH3,HO%(TA(I2%)) 
170 P0KEE1,EN:P0KEE2,EN: 

P0KEE3,EN 
180 FOR DL = 1T0TP*T: NEXT 
190POKEE1,EF:POKEE2,EF: 

P0KEE3,EF 
200GOTO100 
3000 SI = 54272 
3010EN = 33:EF = 32 
3020 FOR I = SI TO SI + 28: POKE l,0: NEXT 
3030 POKE SI + 5,16*1+8 
3040 POKE SI + 6,16*15 + 8 
3050 POKE SI + 12,16*1 +8 
3060 POKE SI + 13,1 6*1 1+8 
3070 POKE SI + 19,1 6*1 +8 
3080 POKE SI + 20,1 6*1 1+8 
3100 POKE SI + 24,6 
3110L1=SI:H1=SI + 1:E1=SI+4 
3120L2 = SI + 7:H2 = L2 + 1: 

E2 = SI + 11 
3130L3 = SI + 14:H3 = L3 + 1: 

E3 = SI + 18 
3140 RETURN 

4000 DIM HQ%(37), LQ%(37) 
4010TMP = 2227:P2 = 2T(1/12) 
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been removed from this part of the program 
to increase speed although it does make it 
harder to read. 

The subroutine at 3000 initializes the SID 
chip, setting values for the attack, decay, 
sustain and release parameters for all three 
voices. The sustain level for voice one is 
higher than that for voices two and three: 
consequently voice one sounds louder than 
the other two voices, so the melody will sound 
louder than the accompaniment. 



The subroutine at 4000 sets up the high 
and low bytes in arrays LQ% and HQ% to 
control the frequencies of the 37 notes in the 
range of the instrument. 

The subroutine at 5000 sets up two arrays 
TA and TB that are used to define the scale of C 
major and to deduce appropriate chords to 
play with the melody. TA contains pitch 
numbers corresponding to the succession of 
'white' notes in the key of C major, which 
could be called the note's 'scale number'. The 



4020 FOR 1 = 1 TO 37 

4030 LQ%{I)=TMP- 256" INT 

(TMP/256): HQ%(I)= TMP/256 
4040TMP = TMP*P2 
4050 NEXT: RETURN 
5000 DATA 1,3,5,6,8,10,12,13,15, 

17,18,20,22,24,25,27,29,30,32, 

34,36,37 
5010 DIM TA(22):FOR 1 = 1 TO 22: 

READ TA(I): NEXT 
5020 DATA 1,1,2,2,3,4,4,5,5,6,6,7, 

8,8,9,9,10,11,11,12,12,13,13,14 
5030 DATA 15,15,16,16,17,18,18,19,19, 

20,20,21,22 
5040 DIM TB(37): FOR 1 = 1 TO 37: 

READ TB(I): NEXT: RETURN 
10000 DATA 13,4,17,4,18,4 
10002 DATA 20,20,13,4,17,4,18,4 
10004 DATA 20,20,13,4,17,4,18,4 
10006 DATA 20,8,17,8,13,8,17,8 
10008 DATA 15,20,17,4,17,4,15,4 
10010 DATA 13,8,13,8,17,8,20,8 
10012 DATA 20,4,18,20,17,4,18,4 
10014 DATA 20,8,17,8,13,8,15,8 
10016 DATA 13,20 

This is quite a complicated program, so 
fairly detailed notes are provided. The 
program shares, however, a certain amount of 
code with the programs given in the previous 
article (see pages 701-707). 

Lines 10 to 90 set up the program, inputt- 
ing a 'tempo' value, calling three initialization 
subroutines, and setting variables K0 to K5 to 
the values to 5. Variables are used rather 
than constants in the part of the program in 
which speed is critical (Lines 100-200), since 
variables can be handled faster than constants 
in the form of groups of digits. Spaces have 
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first note of the scale, with scale number 1, C, 
has pitch number 1, the second, D, has pitch 
number 3, the fourth, F, has pitch number 6 
and so on. TB returns the scale number which 
corresponds to a given pitch number, so for 
example the pitch number 13 corresponds to 
the 8th note in the scale. The two arrays allow 
the pitch number to be extracted given the 
scale number, and vice versa: they allow 
opposite operations to be performed. These 
tables are needed by the logic that provides 
the automatic harmony. 

The main loop is from 100-200. Line 100 
reads in the current pitch and duration values, 
and bypasses the next piece of processing if 
the note is a rest. Line 110 finds which scale 
number it is, using the array TB. Line 120 
randomly generates either 2 or 3, which 
specifies how far below the melody the middle 
note in the harmonizing chord will be. If it's 
3, then the other note, controlled by 12, must 
be 5 notes below the melody note. But if it's 2, 
then the bottom note may be either 4 or 5 
notes below the melody note, and this is 
calculated by Line 130. 

This invariably produces one of the three 
possible triads that will harmonize with any 
note. For example, if the melody note is A, 
then the middle note may be F (2 notes in the 
scale below it) or E (3 notes below it), and the 
bottom note will be C or D. Consequently, 
the note A will harmonize with the chord of F 
major, D minor or A minor. 

Line 135 sets 11 and 12 to the numbers of 
the scale numbers that are to be used. Lines 
140-160 POKE the high and low frequency 
registers with the appropriate values; the 
pitch for the melody is given by PV, which was 
read from the DATA statements. The pitch for 
the other two notes is derived using the array 
TA, which converts the number of the scale 
numbers into their pitch values. Lines 
170-190 switch the envelopes on, execute a 
delay loop, and switch the notes off at the end 
of the notes. 

There is no test for the end of data as this 
would slow down the processing, so the 
program will give an 'out of data' error 
message when it has finished playing. 

10 INPUT "TEMPO ", TP 

20 GOSUB 5000 

30 ENVELOPE 1,1,0,0,0,0,0,0,30,-2, 

0,0,120,100 
40 ENVELOPE 2,1,0,0,0,0,0,0,30,-2, 

0,0,110,90 
50 ENVELOPE 3,1 ,0,0,0,0,0,0, - 1 27, - 1 27, 

-127,-127,0,0 
100 READ PV,T: IF PV = THEN 170 
110 C = TB{PV) 



120I1 = RND(2) + 1:IFI1=3THENI2 = 5: 

GOTO 140 
130l2 = RND(2) + 3 
140 SOUND &1 1 ,1,53 + (PV— 1 )*4, — 1 

1 50 SOUND &1 2,2,53 + (TA(C - II ) - 1 ) 

'4,-1 
1 60 SOUND &1 3,2,53 + (TA(C - 12) - 1 ) 

"4,-1 
170 FOR DL = 1 TOTP'T: NEXT 
180 SOUND 8.11,3,0,-1 
1 90 SOUND &1 2,3,0,-1 
200 SOUND &1 3,3,0,-1 
210 GOTO 100 
5000 DATA 1,3,5,6,8,10,12,13,15,17, 

18,20,22,24,25,27,29,30,32,34, 

36,37 
5010 DIM TA(22): FOR 1 = 1 TO 22: READ 

TA(I): NEXT 
5020 DATA 1,1,2,2,3,4,4,5,5,6,6,7, 

8,8,9,9,10,11,11,12,12,13,13,14 
5030 DATA 15,15,16,16,17,18,18, 

19,19,20,20,21,22 
5040 DIM TB(37): FOR 1 = 1 TO 37: 

READTB(I): NEXT: RETURN 
10000 DATA 13,4,17,4,18,4 
10002 DATA 20,20,13,4,17,4,18,4 
10004 DATA 20,20,13,4,17,4,18,4 
10006 DATA 20,8,17,8,13,8,17,8 
10008 DATA 15,20,17,4,17,4,15,4 
10010 DATA 13,8,13,8,17,8,20,8 
10012 DATA 20,4,18,20,17,4,18,4 
10014 DATA 20,8,17,8,13,8,15,8 
10016 DATA 13,20 

The logic of this has much in common with 
the Commodore 64 version, so the notes for 
that program should be read in conjunction 
with these. Line 20 calls the subroutine at 
5000, which initializes the two arrays TA and 
TB, used to convert pitch numbers into scale 
numbers and vice versa. 

Line 30-50 define three envelopes: the 
first one is used by the melody, the second by 
the harmony (it is slightly quieter), and the 
third is used to switch the sound off between 
notes. 

The main loop is from 100-210. Line 100 
reads the next pitch and duration values, and 
bypasses some processing if the note is a rest. 
Line 110 deduces the scale number from the 
pitch number, 120 and 130 generate the scale 
numbers of the notes that will harmonize with 
the melody, and the notes are played by Lines 
140-160. Line 170 is a delay, and the notes 
are switched off by Lines 180-200. 

Notice that the SOUND commands each 
have the second hex digit of their first 
parameter set to 1 , and their last parameter set 
to — 1 . This ensures that each note continues 
until it is interrupted by a new note, and 
makes it easier to play notes simultaneously. 
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Is there any way of adapting a 
home micro which is incapable 
of playing more than one note at 
a time to play chords or 
simultaneous melodies and 
harmonies. 

Although the hardware on some home 
micros such as the Spectrum doesn't 
support music with more than one voice, 
it is possible to add hardware that will 
enable the Spectrum to do this. You can 
interface your computer with a 
synthesiser using MIDI, a recently 
announced standard for connecting home 
micros with certain keyboards. 

The connection allows the computer's 
memory to be used to store notes and be 
used as a sequence — playing back 
sequences of notes and chords which can 
accompany live music. 

The MIDI interfaces are now 
available for the Spectrum, Commodore 
64 and the Acorn. Portable MIDI 
standard music keyboards will soon be 
available to accompany the 
microcomputer interfaces, These low- 
cost units are being manufactured 
specifically for home micro users. 



SIMULTANEOUS MELODIES 



With the previous program, all three musical 
parts change simultaneously — when a melody 
note changes, so does the accompanying 
chord — and also, only triads are played. The 
next program allows you to specify exactly 
what is played by all three parts. Any combin- 
ation of notes can be played, and the melody 
can move at a different rate from the 
accompaniment. 

As before, the music is held in DATA 
statements at the end of the program. The 
data for the whole of the first voice — from the 
beginning to the end — is stored first, then the 
data for the whole of the second, and then the 
whole of the third. For information on how to 
convert sheet music into the form suitable for 
this program read the previous music article 
(pages 701-707). 

The DATA for each of the three voices is 
terminated by the special pair of values 99,99 
(in Lines 10031, 20020 and 30020 in the data 
supplied). The other DATA statements each 
contain note definitions for exactly two bars, 
to make it relatively easy to determine which 



DATA statement contains note information for 
which bar. If you want to modify this 
program for a piece containing only two 
voices, immediately follow the 99,99 pair at 
the end of the second voice with another 99,99 
pair, so the third voice is effectively assigned a 
null batch of data. 

The programs include data for 'Three 
Blind Mice' in a three-part arrangement 
shown in the diagram on page 988. The 
harmony sticks mostly to simple triads: the 
first chord is C major, the second is G major 
and the third is C major again. 



10 GOSUB 3000 

20 INPUT "□TEMP0";TP 

30 GOSUB 4000 

40 GOSUB 5000 

50K0 = 0:K1=1:K2 = 2:K3 = 3 

100P1=0: P2 = 0: P3 = 

110 GOSUB 1000 

120 GOSUB 1100 

130 GOSUB 1200 

140IFT1 <>99THENT1 =T1 -K1:IFT1 = 

K0THENP1=P1+K2:GOSUB1000 
150IFT2<>99THENT2=T2-K1:IFT2 = 

K0THENP2 = P2 + K2:G0SU B1 1 00 
160IFT3< >99THENT3 = T3-K1:IFT3 = 

K0THENP3 = P3 + K2:G0SUB1 200 
170 FOR DL = 1 TOTP: NEXT 
180 GOTO 140 

1000 POKE E1,EF:T1 = DA%(K1,P1 +K1) 
1010 PV=DA%(K1,P1):1F PV = 99 0R 

PV = K0 THEN RETURN 
1020 POKE E1,EN:P0KE H1,HQ%(PV): 

POKE L1,LQ%(PV) 
1030 RETURN 
1100 POKE E2,EF:T2 = DA%(K2, 

P2+K1) 
1110 PV = DA%(K2,P2):IF PV = 99 OR 

PV = K0 THEN RETURN 
1120 POKE E2,EN:P0KE H2,HQ%(PV): 

POKE L2,LQ%(PV) 
1130 RETURN 
1200 POKE E3,EF:T3 = DA%(K3, 

P3 + K1) 
1210 PV = DA%(K3,P3):IF PV = 99 OR 

PV=K0 THEN RETURN 
1220 POKE E3,EN:POKEH3,HQ% 

(PV):P0KE L3,LQ%(PV) 
1230 RETURN 
3000 SI = 54272 
3010EN = 33:EF = 32 
3020 FOR I = SI TO SI + 28: POKE l,0: NEXT 
3030 POKE SI + 5,16*1+1 
3040 POKE Sl + 6,16*15 + 1 
3050 POKE SI + 12,1 6*1+1 
3060 POKE 51 + 13,16*10 + 1 
3070 POKE SI + 19,1 6*1 + 1 
3080 POKE SI + 20,1 6*10 + 1 



* 



3100 POKE SI + 24,6 
3110L1=SI:H1=SI + 1: 

E1=SI + 4 
3120L2 = SI + 7:H2 = L2 + 1: 

E2 = SI + 11 
3130L3 = SI + 14:H3 = L3 + 1: 

E3 = SI + 18 
3140 RETURN 

4000 DIM HQ%(37), LQ%(37) 
4010TMP = 2227:P2 = 2T(1/12) 
4020 FOR 1 = 1 TO 37 
4030 LQ%(I)=TMP-256*INT(TMP/ 

256): HQ%(l)=TMP/256 
4040TMP = TMP*P2 
4050 NEXT: RETURN 
5000 DIM DA%{3,1000) 
5010 FOR VN = 1 TO3:P=0 
5020 READ DA%{VN,P): READ 

DA%(VN,P+1) 
5030P = P + 2 

5040 IF DA%(VN,P-2) = 99 THEN NEXT VN 
5050 IF VN<4 THEN 5020 
5060 RETURN 

10000 DATA 17,6,15,6,13,12 
10002 DATA 17,6,15,6,13,12 
10004 DATA 20,6,18,4,18,2,17,12 
10006 DATA 20,6,18,4,18,2,17,10,20,2 
10008 DATA 25,4,25,2,24,2,22,2,24,2, 

25,4,20,2,20,4,20,2 
10010 DATA 25,2,25,2,25,2,24,2,22,2, 

24,2,25,4,20,2,20,2,20,2,20,2 
10012 DATA 25,4,25,2,24,2,22,2,24,2, 

25,2,20,2,20,2,20,4,18,2 
10014 DATA 17,6,15,6,13,12 
10020 DATA 99,99 
20000 DATA 8,6,12,6,8,12 
20002 DATA 8,6,1 2,6,8,1 2 
20004 DATA 15,6,13,6,8,12 
20006 DATA 15,6,12,6,13,12 
20008 DATA 17,6,15,6,17,6,18,6 
20010 DATA 17,6,18,6,17,6,15,6 
20012 DATA 13,6,15,6,17,6,12,6 
20014 DATA 13,6,12,6,5,12 
20020 DATA 99,99 
30000 DATA 1,6,8,6,5,1 2 
30002 DATA 1,6,8,6,5,12 
30004 DATA 12,6,10,6,1,12 
30006 DATA 12,6,8,6,10,12 
30008 DATA 8,6,6,6,8,6,12,6 
30010 DATA 8,6,8,6,8,6,6,6 
30012 DATA 5,6,6,6,8,6,6,6 
30014 DATA 8,6,8,6,1,12 
30020 DATA 99,99 

Lines 10 to 50 set up the program, by 
inputting a 'tempo' value, calling several 
initialization subroutines, and setting vari- 
ables K0 to K3 to the values to 3. Variables 
are used rather than constants in the part of 
the program in which speed is critical, as with 
the previous program. 
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The subroutine at 3000 initializes the SID 
chip. Again the sustain level for voice one is 
higher than that for voices two and three for 
voice one to sound louder than the other two 
voices. Lines 3110-3130 set variables to the 
addresses of high and low frequency registers 
and envelope control registers for all three 
voices; again variables are used for speed. 

The subroutine at 4000 sets up the high 
and low bytes in arrays LQ% and HQ% to 
control the frequencies of the 37 notes in the 
range of the instrument. 

The subroutine at 5000 reads pitch and 
duration value pairs from the DATA statements 
into the array DA%(3.1000). The first index 
gives the voice number, the second is for the 
position in the array of the pitch and duration 
pair being handled. It is not possible to READ 
DATA directly from the DATA statements as the 
music is played, since the Basic interpreter 
supports only a single pointer that READs DATA 
statement items from the current position. As 
the logic of this program requires data to be 
read from different parts of the DATA state- 
ment region, the solution is to read the values 
from the DATA statements into the array 
mentioned, and this can then be read by 3 
different pointers (PI, P2 and P3) which scan 
along the array as the music plays. If the 
different musical parts move with different 
rhythms, then the pointers will scan through 
the array at different rates. Line 5040 detects 
the value 99 that ends the block of data for 
each voice, advances the variable VN (for voice 
number) to its next value, and resets the 
pointer P to (in Line 5010), to read in the 
block of data for the next voice. 

The subroutine at 1000-1030 handles a 
new note in voice number 1; P1 points to the 
current pair of values specifying its pitch and 
duration. First the subroutine switches the 
envelope off, thus ending the previous note. It 
then fetches the duration data for the new 
note, which is put into the variable T1 . Line 
1010 assigns the pitch value of the current 
note to the variable PV; if it's 99, the end of the 
data for that voice has been reached, and if it's 
then the note is a rest. In either case the 
subroutine is exited with a RETURN statement. 
Otherwise, Line 1120 switches on the envel- 
ope, and loads the high and low frequency 
registers, accessing the arrays LQ% and HQ% 
using the pitch value as an index. The 
subroutines at 1100 and 1200 perform the 
same operations for voices 2 and 3. 

Line 100 sets the pointers that are to scan 
through the array DA%, and 1 10-130 call the 
subroutines at 1000, 1 100 and 1200 to set up 
the first notes. Lines 140-180 constitute the 
main loop of the program. Line 140 tests T1, 
the duration value for the current note: a 



value of 99 indicates that the end of the voice 
data for that voice has been reached, and 
nothing more is done. If it is not 99, the value 
is decremented: if it becomes 0, it means that 
the end of the note has been reached and a new 
one is fetched by calling the subroutine at 
1000. If the value hasn't yet reached 0, then 
nothing is done. Lines 150 and 160 perform 
similar operations for voices 2 and 3. Line 170 
provides a delay loop which allows the tempo 
to be altered. Each time round the loop 
corresponds to a single time unit or clock 
pulse for the piece of music being played. 



10 INPUT "TEMPO ",TP 

20 GOSUB 5000 

30 ENVELOPE 1,1,0,0,0,0,0,0,30,-2,0, 

0,120,100 
40 ENVELOPE 2,1,0,0,0,0,0,0,30,-2,0, 

0,110,90 
50 ENVELOPE 3,1 ,0,0,0,0,0,0, - 1 27, - 1 27, 

-127,-127,0,0 
100P1=0:P2 = 0:P3 = 
110 GOSUB 1000 
120 GOSUB 1100 
130 GOSUB 1200 
140 IFT1<>99 THEN T1=T1-1:IFT1=0 

THEN PI = PI +2: GOSUB 1000 
150IFT2<>99THENT2 = T2-1:IFT2 = 

THEN P2 = P2 + 2: GOSUB 1100 
160 IFT3<>99 THEN T3=T3-1: IF T3 = 

THEN P3 = P3 + 2: GOSUB 1200 
170 FOR DL=t TOTP: NEXT 
180 GOTO 140 
1000 SOUND &1 1,3,0,-1 
1005T1 = DA(1,P1+1) 
1010 PV = DA(1,P1): IF PV = 99 OR PV = 

THEN RETURN 
1 020 SOUND &1 1 ,1 ,53 + (PV - 1 )'4, - 1 
1030 RETURN 
1100 SOUND &1 2,3,0,-1 
1105T2 = DA(2,P2 + 1) 
1110PV = DA(2,P2): IF PV = 99 0R PV=0 

THEN RETURN 
1 1 20 SOUND &1 2,2,53 + (PV - 1 )*4, - 1 
1130 RETURN 
1200 SOUND &1 3,3,0,-1 
1205T3 = DA(3,P3 + 1) 
1210 PV = DA(3,P3): IF PV = 99 OR PV=0 

THEN RETURN 
1 220 SOUND &1 3,2,53 + (PV - 1 )*4, - 1 
1230 RETURN 
5000 DIM DA(3,T000) 
5010 FOR VN = 1 TO 3: P = 
5020 READ DA(VN,P): READ DA(VN,P + 1) 
5030 P = P + 2 

5040 IF DA(VN,P-2) = 99 THEN NEXT VN 
5050 IF VN<4 THEN 5020 
5060 RETURN 
10000 DATA 17,6,15,6,13,12 



10002 DATA 17,6,15,6,13,12 
10004 DATA 20,6,18,4,18,2,17,12 
10006 DATA 20,6,18,4,18,2,17,10,20,2 
10008 DATA 25,4,25,2,24,2,22,2,24,2, 

25,4,20,2,20,4,20,2 
10010 DATA 25,2,25,2,25,2,24,2,22,2, 

24,2,25,4,20,2,20,2,20,2 
10012 DATA 25,4,25,2,24,2,22,2,24,2, 

25,2,20,2,20,2,20,4,18,2 
10014 DATA 17,6,15,6,13,12 
10020 DATA 99,99 
20000 DATA 8,6,12,6,8,12 
20002 DATA 8,6,12,6,8,12 
20004 DATA 15,6,13,6,8,12 
20006 DATA 15,6,12,6,13,12 
20008 DATA 17,6,15,6,17,6,18,6 
20010 DATA 17,6,18,6,17,6,15,6 
20012 DATA 13,6,15,6,17,6,12,6 
20014 DATA 13,6,12,6,5,12 
20020 DATA 99,99 
30000 DATA 1,6,8,6,5,12 
30002 DATA 1,6,8,6,5,12 
30004 DATA 12,6,10,6,1,12 
30006 DATA 12,6,8,6,10,12 
30008 DATA 8,6,6,6,8,6,12,6 
30010 DATA 8,6,8,6,8,6,6,6 
30012 DATA 5,6,6,6,8,6,6,6 
30014 DATA 8,6,8,6,1,12 
30020 DATA 99,99 

The subroutine at 5000 loads the array DA: 
see the Commodore 64 program notes. 

Lines 30-60 define the three envelopes 
that are used as in the previous program. 

The subroutine at 1000 sets up the next 
note in voice one; first it forcibly switches the 
note off, using envelope 3, then it retrieves 
pitch and duration values using pointer PI to 
the current data pair. If it's a rest, or if the end 
of the data for that voice has been reached 
then the subroutine is left. Otherwise the new 
note is started. The subroutines at 1100 and 
1200 perform the same operations for the 
other two voices. 

Lines 100-130 initialize the pointers that 
are to scan through the array, and set up the 
first 3 notes by calls to the subroutines at 
1000, 1 100 and 1200. The main loop is from 
140-180. Line 140 tests the duration value 
for the current note of voice one: if it's 99 then 
the end of the voice data has been reached and 
nothing more is done. If it isn't 99, the value is 
decremented; if it becomes 0, then the end of 
the note has been reached and a new one is 
fetched by calling the subroutine at 1000. 
Lines 1 50 and 1 60 perform similar operations 
for voices 2 and 3. Line 170 provides a delay 
loop which allows the tempo to be altered. 
Each time round the loop corresponds to a 
single time unit or clock pulse for the piece of 
music being played. 
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Willie needs a cliff on which to 
perform his acts of daring-do. And 
you need to know how to couple 
together the bits of programming 
you have entered so far 

It is now time to start drawing the cliff Willie 
has to scale. To put this on the screen you 
need a great deal of data. And again this is 
POKEd into a data table by a BASIC program. 
You will not be able to see the graphics at this 
stage — displaying them is covered by the next 
part. So for now, you just need to enter them 
and save the resulting data table. 

By now you should have a number of the 
data POKEr programs and several machine 
code routines. And it is also time to start 
merging these together so that you can build 
them week by week into the whole game. 



Now you need the data for the UDGs — the 
clouds, the seagulls, the boulders, the picnic 
goodies, the holes, the snakes and Willie 
himself. There is a lot of data here, but to get 
smooth animation, moving objects have to be 
drawn in several positions. The UDGs are 
then alternated to give the impression of 
continuous action. 

5 CLEAR 56999 

10 FOR n = 57000 lo 57327: READ a: 

LETa$ = STR$a:POKEn,VAL 

("BIN" + a$): NEXT n 
9010 DATA 11000,111100,111100,11000, 



111100,111100,111100,111100,111100, 

111100,11000,11000,11000,11000, 

11000,11110 

9011 DATA 1,11,11,1,0,1,1,1,10000000, 

1 1 000000,1 1 000000,1 0000000,0,0,0, 
1 1 1 00000,1 1 10,0,1 ,1 0,1 00,1 000,1 00,0, 
0,0,1 0000000,1 000000,100000, 
100000,110000,0 

9012 DATA 0,0,0,0,1 1 000,1 1 1 1 00,1 1 1 1 00, 

1 1 000,0,1 0000,1 0000,1 1 1 1 0,1 1 1 00000, 
0,1 1 00,1 001 00,1 00001 0,1 000001 0, 
1000011,0,0,0,0,0 

9013 DATA 0,0,0,0,1,11,11,1,0,0,0,0, 
1 0000000,1 1 000000,1 1 000000, 
10000000,0,1,1,1,1110,0,1,10,0,0,0, 

1 1 1 00000,0,0,1 0000000,1 000000,1 00, 
1 000,100,0,0,0,0,0,1 00000,1 00000, 
110000,0,0,0,0,0 

9014 DATA 11100,111110,1111111,11111111, 
11111111,11111110,11111100,111000,11, 
111,1111,1111,1111,111,11,1,10000000, 
11000000,11100000,11110000, 
11110000,11110000,11100000, 
11000000 

9015 DATA 0,0,111,11000,100000, 

1 000000, 1 000000, 1 0000000,0,0, 11111, 

1 01 00000,1 1 000000,0,0,0,0,0, 

1 0000000,1 000000,1 01 1 1 00,1 0001 0, 

10,10,10000000,1000000,1111100,10, 

10,1,0,0,0,0,0,100,1010,10001, 

1 1 1 00000,0,1 0,1 00,1 000,1 00,1 00,100, 

11111000,0 

9016 DATA 0,0,1111000,10000110,1,1,0,0, 
0,0,11110,1100001,10000000, 

1 0000000,0,0,0,0,0,0,1 00001 1 1 , 

1111001,0,0,0,0,0,0,11100001, 

10011110,0,0 

9017 DATA 100010,10100,1000,1000,1000, 
1000,1000,1000,11000,111100,110110, 
1111110,1111110,111100,11000,11000, 
11000,11000,1100,1100,110,110,11,11, 
110,110,1100,1100,11000,11000, 

1 1 0000,1 1 0000,1 1 00000,1 1 00000, 

11000110,11000011,1100110,1101100, 

111000,11.1000 

9018 DATA 10000100,11010110,11111111, 
11111111,11111111,11111111,11111111, 
11111111,0,1,11,111,11111,111111, 
1111111,11111111 

9019 DATA 0,0,1111 1111,1 1111111,111100, 
111100,11111111,11111111,110,1000, 



1110110,11111111,11111111,11111111, 
1111110,111100,10000,10000,10000, 
111000,111000,111000,111000,111000, 
1 0000,1 1 1 000,1 1 1 1 1 00,1 1 1 000,1 1 1 000, 
111000,10000,10000 
9020 DATA 0,0,0,100000,1010001, 
1 000101 0,1 00,0,0,0,0,1 000001 0, 
1000101,101000,10000,0 

RUN the program and SAVE the resulting 
machine code data table using the instruction: 

SAVE "Cliff4" CODE 57000,327 



GETTING IT ALL TOGETHER 



Long programs often have to be written and 
assembled in bits. This then gives you the 
problem of merging the bits together to give 
one long working program. And just because 
the various parts work separately, this does 
not mean the whole thing will work when it is 
put together. 

One of the main problems is overwriting. 
If you have SAVEd a few too many bytes there 
is a danger that you will overwrite part of the 
next routine. If you are SAVEing your as- 
sembled routines using the machine code 
monitor you have to supply the start address 
and the number of bytes you want to SAVE. Or 
if you use the Spectrum's own machine code 
SAVE command you use the format: 

SAVE "name" CODE 

which again is followed by the start address, a 
comma, then the number of bytes to be 
SAVEd. 

Obviously there is no problem with the 
start addresses. With machine code assembled 
from assembly language programming the 
start address of the object code is the same as 
the origin. After all, when the assembler is 
RUN it takes the origin and starts assembling 
the machine code program from there. And 
with data tables POKEd in from BASIC, the 
start address is the initial value of the variable 
in the FOR ... NEXT loop which picks up the 
DATA and stores it in memory a byte at a time 
when the program is RUN. 

But working out the number of bytes to be 
SAVEd can cause problems. The end address 
given by assemblers is often the first free 
address past the end of the program. And 
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THE PROFILE OF THE SLOPE 

ADDING UDG AND SPRITE DATA 

SIMULATING SMOOTH ANIMATION 

LOADING PROBLEMS 

SAVEING EXTRA BYTES 



The 'CUFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CUFF HANGER' re- 
leased for the Commodore 64 and published by 
New Generation Software Limited. 



sometimes all you are given is the start 
address of the last instruction, so if the 
routine does not end with a ret, it does not 
give a true end address, 

The usual way round this problem is to 
SAVE an extra couple of bytes. But that can 
cause overwriting problems. 



The answer is to LOAD your programs back 
into the computer in order up memory. LOAD 
the one with the lowest origin or start address 
first, then the next lowest, then the next and 
so on. This means that any extra bytes SAVEd 
at the end of the routine will be overwritten 
by the beginning of the next program — 




instead of the other way round. And it means 
that any ret that has been added to allow you 
to test single routines will be overwritten too. 

When all the routines and data tables have 
been LOADed, SAVE them back to tape or 
Microdrive as one program under another 
name — the start address will be the start 
address of the first program, and the end 
address will be the end address of the last 
program. Then, if you have any problem you 
can put the various pieces back together and 
try again. Using the SAVE option on your 
assembler don't forget to SAVE the assembly 
language and the BASIC POKEr programs as 
well in case you need to re-assemble them 
later. 

If you have any problems with the data 
tables, you can LOAD up the machine code 
routines — in order up memory again — and 
LOAD up and RUN the BASIC POKEr 
programs again. These must be LOADed one 
at a time, RUN and NEWed before you LOAD 
the next one. Again the whole area of memory 
should be SAVEd to tape under a new program 
name. 



The following program supplies the data for 
the sprites — the clouds, the seagulls, the 
boulders, the picnic goodies, the holes, the 
snakes and Willie himself. It may look like 
there is a lot of data here, but to get smooth 
animation, moving objects have to be drawn 
in several positions. The sprites are then 
alternated to give the impression of cont- 
inuous action. 

20 V = 53248 

30 5 = 230 

40FORI = S*64TO(S + 8)*64 

50 READA:POKEt,A:NEXT 

60POKEV + 21,1:POKEV,100:POKEV + 1, 

100:POKEV + 39,0:POKE2040,237 
100PRINT"QFINISHED":STOP 
1000DATA0,0,0,0,0,0,0,0,0,0,0,0,0,7, 

128,0,7,64,0,7,128,0,7,128,0,15,192, 

0,11 
1010DATA64,0,11,64,0,1 1,64,0,12,192,0,7, 

1 28,0,3,0,0,3,0,0,3,0,0,3,0,0,3 
1020DATA0,0,3,1 28,0,3,1 92,0 
1040DATA0,0,0,0,0,0,0,0,0,0,0,0,0,7, 



128,0,7,64,0,7,1 28,0,7,1 28,0,1 5,1 92, 

0,11 
1 050DATA64,0,6,96,0,28,1 1 2,0,56,216, 

0,7,128,0,3,1 28,0,3,1 92,0,31 ,96,0, 

31,96 
1 060DATA0,24,56,0,1 6,60,0,0,0,0,0 
I080DATA0,0 3 } J J 0,0 J S 0,0,0,0 J 0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0 
1090DATA30,0,0,63,0,0,94,1 28,0,237, 

1 92,0,243,1 92,0,243,1 92,0,237,1 92,0, 

94,128 
1100DATA0,63,0,0,30,0,0,0 
1 1 20DATA0 ! J 0,0,0 ; 0,1 5,1 92,0,245,96, 

1 5,1 70,1 60,245,85,96,255,1 70,224, 

255 
1130DATA245,224,255,255,224,1 43,255, 

224,1 28,255,224,240,1 5,1 60,255,0, 

32,255 
1 1 40DATA240,96,255,255,224,1 5,255, 

224,0,255,1 92,0,1 5,1 28,0,0,0,0,0,0,0, 

0,0,0,0 
1 1 60DATA0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,24,0,0,60,0,0,102,0,0,60,0,0, 

120,0 
1 1 70DATA1 20,0,0,1 20,0,0,60,0,0,30, 

0,0,30,0,0,30,0,0,60,0,0,120,0,0, 

120,0,0 
1180DATA48,0,0,32,0,0,0 
1 200DATA36,0,0,24,0,0,8,0,0,1 6,0,0,8, 

0,0,24,0,0,60,0,0,102,0,0,60,0,0, 

120,0 
121 0DATA0,1 20,0,0,1 20,0,0,60,0,0,30, 

0,0,30,0,0,30,0,0,60,0,0,120,0,0, 

120,0,0 
1220DATA48,0,0,32,0,0,0 
1240DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,255,0,0,255,0,0,255,0,0, 

255 
1250DATA0,0,255,0,0,255,0,0,255,0,0, 

255,0,0,255,0,0,255,0,0,255,0,0, 

255,0,0 
1260DATA255,0,0,255,0,0,255,0,0,0 
1 280DATA0,0,0,0,0,0,0,0,0,1 92,0,1 ,32, 

192,2,27,48,26,4,8,36,8,8,66,8,16, 

130 
1 290DATA4,96,1 32,0,1 44,1 28,0,8,64,0,8, 

68,43,48,56,65,64,8,64,128,7,35,0, 

0,220 
1300DATA0,0,0,0,0,0,0,0,0,0,0,0 

The following program provides the user- 
defined graphics which make up the charac- 
ters that stand still. It also defines the letters 
of the alphabet. This gives you a unique 
typeface for your game. Although this is not 
entirely necessary, it is often done in commer- 
cial games. 

20FORI = 0TO263:READA: P0KE1 2288 

+ 1, A: NEXT 
30FORI = 0TO1 27:READA: P0KE1 2672 



+ l,A:NEXT 
40PRINT"QFINISHED":STOP 
1000DATA60,66,1 53,1 45,145,1 53, 

66,60 
1 01 0DATA56,68,1 30,1 30,254,1 30, 

130,0 
1 020DATA248,1 32,1 30,252,1 30,1 30, 

252,0 
1 030DATA1 24,1 30,1 28,1 28,1 28,1 30, 

124,0 
1 040DATA248,1 32,1 30,1 30,1 30,1 32, 

248,0 
1 050DATA248,1 32,1 28,248,1 28,1 32, 

248,0 
1060DATA248,1 32,1 28,248,1 28,1 28, 

128,0 
1 070DATA1 20,1 32,1 28,1 52,1 32,1 32, 

120,0 
1 080DATA1 32,1 32,1 32,252,1 32,1 32, 

132,0 
1090DATA56,1 6,1 6,1 6,1 6,1 6,56,0 
1100DATA56,1 6,1 6,1 6,1 6,1 44,1 12,0 
1 1 1 0DATA1 32,1 36,1 44,224,1 44,1 36, 

132,0 
1120DATA128,1 28,128,1 28,1 28,1 28, 

252,0 
1130DATA1 30,1 98,170,146,1 30,130, 

130,0 
1 1 40DATA1 30,1 94,1 62,1 46,1 38,1 34, 1 30,0 
1150DATA1 24,1 30,1 30,1 30,1 30,1 30,1 24,0 
1 1 60DATA1 24,1 30,1 30,252,1 28,1 28,1 28,0 
1 1 70DATA1 24,1 30,130,252,1 36,1 32,1 30,0 
\ 1 80DATA1 24,1 30,1 30,252,1 36,1 32,1 30,0 
1 1 90OATA1 20,1 32,128,52,1 2,132,1 20,0 
1200DATA254,146,16,16,16,16,16,0 
1 21 0DATA1 30, 1 30,1 30,1 30,1 30,1 30, 

124,0 
1220DATA1 30,1 30,1 30,1 30,68,40,1 6,0 
1230DATA1 30,1 30,146,146,1 46,146, 

124,0 
1 240DATA1 30,68,40,1 6,40,68,1 30,0 
1 250DATA1 30,68,40,1 6,1 6,1 6,1 6,0 
1 260DATA254,4,8,1 6,32,64,254,0 
1 270DATA56,56,1 6,254,40,68,1 30,0 
1280DATA170,170,170,255,255,255,255, 

255 
1290DATA3,7,1 5,31, 31, 63,63,1 27 
1300DATA223,239,255,255,239,247,255, 

255 
1 31 0DATA223,239,255,255,239,247,255, 

255 
1320DATA0,0,0,0,0,0,0,0 
1 470DATA1 24,1 30,130,130,1 30,1 30, 

124,0 
1480DATA1 6,48,1 6,1 6,1 6,1 6,56,0 
1 490DATA1 24,1 30,2,1 24,1 28,1 28,254,0 
1 500DATA1 24,1 30,2,1 24,2,1 30,1 24,0 
1 51 0DATA1 44,1 44,1 44,252,1 6,1 6,1 6,0 
1 520DATA252,1 28,128,248,4,4,252,0 
1530DATA60,64,1 28,248,1 32,1 32,252,0 
1540DATA252,4,4,8,1 6,32,64,0 



1 550DATA1 20,1 32,1 32,1 20,1 32,132, 1 20,0 
1 560DATA1 20,1 32,1 32,1 24,4,4,1 20,0 
1590DATA0,0,36,90,1 53,0,0,0 
1600DATA0,0,231, 24,24,0,0,0 
1 61 0DATA1 29,66,36,24,24,0,0,0 
1620DATA0,0,231, 24,24,0,0,0 
1 630DATA34,85,1 32,0,34,85,1 32,0 
1640DATA223,1 87,1 83,21 9,191,219,219,239 

RUN these programs, then SAVE the machine 
code data table it makes, using your machine 
code monitor. 



PICKING UP THE PIECES 



Long programs often have to be written and 
assembled in bits. This then gives you the 
problem of merging the bits together to give 
one long working program. And just because 
the separate parts work, this does not mean 
the whole thing will work when it is put 
together. 

When one routine calls another, there is 
always the problem that it calls it in the wrong 
place. And data tables may not coincide 
properly with the appropriate data pointers. 
But these problems can be eliminated by 
checking the individual sections programs 
thoroughly. 

This assumes that when you have finished 
merging the parts of the program together 
you haven't lost anything in the process. 
Unfortunately, it is all to easy to lose a byte or 
two when you are concatinating various dif- 
ferent programs in memory. And the loss of 
even a single byte can cause the whole 
program to crash or malfunction. 

One of the main problems is overwriting. 
If you have a few too many bytes there is a 
danger that you will overwrite part of the 
next routine. If you are SAVEing your as- 
sembled routines using the machine code 
monitor you have to supply the start address 
and the number of bytes you want to SAVE. 

Obviously, there is no problem with the 
start addresses. With machine code assembled 
from assembly language programming the 
start address of the object code is the same as 
the origin. After all, when the assembler is 
RUN it takes the origin and starts assembling 
the machine code program from there. And 
with data tables POKEd in from BASIC, the 
start address is the initial value of the variable 
in the FOR . . . NEXT loop which picks up the 
DATA and stores it in memory a byte at a time 
when the program is RUN. 

But working out the number of bytes to be 
SAVEd can cause problems. The end address 
given by assemblers is often the first free 
address past the end of the program. And 
sometimes all you are given is the start 
address of the last instruction, so if the 
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routine does not end with a RTS, it does not 
give a true end address. 

The usual way round this problem is to 
SAVE an extra couple of bytes. But that can 
cause overwriting problems. 

The answer is to LOAD your programs — 
using the L0AD"name",1,1 command— back 
into the computer in order up memory. LOAD 
the one with the lowest origin or start address 
first, then the next lowest, then the next and 
so on. This means that any extra bytes SAVEd 
at the end of the routine will be overwritten 
by the beginning of the next program — 
instead of the other way round. And it means 
that any RTS that has been added to allow you 
to test single routines will be overwritten too. 

When all the routines and data tables have 
been LOADed, SAVE them back to tape or 
disk as one program under another name — 
the start address will be the start address of 
the first program and the end address will be 
the end adrdress of the last program. Then if 
you have any problem you can put the various 
pieces back together and try again. Using the 
SAVE option on your assembler don't forget to 
SAVE the assembly language and the BASIC 
POKEr programs as well in case you need to re- 
assemble them at a later stage. 

If you have any problems with the data 
tables, you can LOAD up the machine code 
routines — in order up memory again — and 
LOAD up and RUN the BASIC POKEr 
programs again. These must be LOAded one at 
a time, RUN and NEWed before you LOAD the 
next one. Again the whole area of memory 
should be SAVEd to tape under a new program 
name. 



The following program POKEs the data for the 
UDGs — the clouds, the seagulls, the boul- 
ders, the picnic goodies, the holes, the snakes 
and Willie himself — into memory. There is a 
lot of data here, but to get smooth animation, 
moving objects have to be drawn in several 
positions. The UDGs are then alternated to 
give the impression of continuous action. 
Each character is made up of eight bytes of 
data, and there are 16 bytes of DATA in each 
DATA line. The last figure in each line is a 
checksum which is totalled in Line 900. The 
program will check that the DATA adds up and 
will tell you which line an error has occurred 
in if you have keyed the DATA in wrongly. 

If you get an error message without a line 
number, you have missed out a line com- 
pletely. As always, type PAGE = 43000 and 
NEW before you key the program in. 

60 DATA"FFFFFFFFFFFFFFFF",2040 

70 DATA"! 83C3C1 800000000", 168 



80 DATA"000000003C3C3C3C",240 
90 DATA"3C3C000000000000M20 
100 DATA"0000000000080808",24 
110 DATA"1000181818181838",192 
120 DATA"0000000000080878'\136 
130 DATA"03001 8244241 C200",388 
140 DATA"3C3C181818181838",296 
150 DATA"030301020404040C",33 
160 DATA"4231C20000000000'\309 
170 DATA" FF3E1 81 81 81 81 838'%493 
180 DATA"FF63C20000000000",548 
190 DATA"183C6E7E7E3C1818",554 
200 DATA"2214080808080808",102 
210 DATA"00DDFFFFFFFFFFFF",1751 
220 DATA"0001070F1 F3F3F7F",307 
230 DATA"0080E0F0F8FCFCFE",1 598 
240 DATA"! C3E7FFFFFFE7C38",1 161 
250 DATA"387CFEFFFF7F3E1C",1161 
260 DATA"00EE110000EE1100",510 
270 DATA"00788601 01 000000",256 
280 DATA"001E618080000000",383 
290 DATA"0000008779000000",256 
300 DATA"000000E19E000000",383 
310 DATA"0000000000101010",48 
320 D ATA"08001 81 81 81 81 81 C",1 56 
330 DATA"00000000001 01 01 E",62 
340 DATA"C000182442824300",515 
350 DATA"3C3C1 81 81 81 818T C",268 
360 DATA"0F03010204080400",37 
370 DATA"4282430000000000",263 
380 DATA"FF3E18181818181C",465 
390 DATA"FFA2430000000000",484 
400 DATA"0000071820404080",319 
410 DATA"00001FA040000000",255 
420 DATA"000080405C220202",322 
430 DATA"80403E0202010000",259 
440 DATA"000000040A1 1 E000",255 
450 DATA"020408040404F800",274 
460 DATA"0000000081818183",518 
470 DATA"C3C3C7C7E7EFEFEF",1 736 
480 DATA"081 0080402040201 ",45 
490 DATA"0204080408102010",90 
500 DATA"2040804020402040",480 
510 DATA"2010201000100010",128 
520 DATA"1 0080408040201 02",45 
530 DATA"0402040810081020",90 
540 DATA"4020408040204020",480 
550 DATA'1 02010201 0001 000",1 28 
560 DATA"0000FFFFFF000000",765 
570 DATA"000000FFFFFF0000",765 
580 DATA"00000000007F7F00",254 
590 DATA"0000000000FEFE00",508 
600 DATA"007F7F0000000000",254 
610 DATA"00FEFE0000000000",508 
620 DATA"000000000000007F",127 
630 DATA"00000000000000FE",254 
640 DATA"7F00000000000000",127 
650 DATA"FE00000000000000",254 
660 DATA"000000003C7EFFFF",696 
670 DATA"FFFFFFFF7F7F3F0F",1 352 
680 DATA"FFFFFFFFFEFEFCF0",2020 



690 DATA"0000000101010000",3 
700 DATA"3878C08080800000",752 
710 DATA"1 8181 81 8244281 81 ",456 
720 DATA"8181818181 8181 FF",1 158 
730 DATA"007E7E7E7E7E7E00",756 
740 DATA"0000010103000000",5 
750 DATA"20F8FCFCFE000000",1 038 
760 DATA"0000000000030101",5 
770 DATA"0000000000FEFCFC",758 
780 DATA"F8F8F87070702020",1 144 
790 DATA"0000017F7F7F3C80",570 
800 DATA"0007FCF0C0000000",691 
81 DATA"80C0F07030000000",720 
820 DATA"000000008080C070",560 
830 DATA"0000000000030F3F",81 
840 DATA"70330F8FCCF07030",925 
850 DATA"FCF0C00000000000",684 
860 DATA"000000000000030F",18 
870 DATA"0000030F3FFCF0C0",765 
880 DATA"0F0C0000030F0F0C",72 
890 DATA"030F3FFCF0C00000",765 
900 DATA 40941 
940P% = &1534 
950S% = 

960 F0RA% = 60TO890STE P1 
970 READA$,B% 
975 IFLENA$<>16 THEN B% = 0: GOTO 

1030 
980T% = 
990 FORC% = 0TO7 
1000?{C% + P%) = EVAL("&" + 

MID$(A$,C%*2 + 1,2)) 
1010T% = T% + ?(C% + P%) 
1020 NEXT 
1030 IFT%<> B% PRINT'Data error in 

lineD";A%:END 
1040S% = S% + T% 
1050P% = P% + 8 
1060 NEXT 
1070 READB% 
1080 IFB%< >S% PRINT'Data error" 

RUN this program to POKE the DATA into 
memory. 'SAVE the resulting machine code 
data table using the instruction: 

•SAVE"MCliP"1534D17E0 



PUTTING PROGRAMS TOGETHER 



Long programs often have to be written and 
assembled in bits. This then gives you the 
problem of merging the bits together to give 
one long working program. And just because 
the separate parts work, this does not mean 
the whole thing will work when it is put 
together. 

One of the main problems is overwriting. 
If you have a few too many bytes there is a 
danger that you will overwrite part of the next 
routine. If you are *SAVEing the object code 
you have to supply the start address and the 
end address — or the number of byte with a 
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plus sign in front — of the machine code you 
want to •SAVE. 

Obviously there is no problem with the 
start addresses. With machine code assembled 
from assembly language programming the 
start address is the same as the origin. The 
origin is given in the P% value just before the 
square bracket switches on the assembler. 
When the assembler is RUN this value is used 
at start address for the machine code. And 
with data tables POKEd in from BASIC, the 
start address is the initial value of the variable 
in the FOR ... NEXT loop which picks up the 
DATA and stores it in memory a byte at a time 
when the program is RUN. 

But working out the number of bytes to be 
•SAVEd can cause problems. No end address 
is given by the Acorn's assembler. You can 
work out the end address of course. When the 
assembler is RUN the memory addresses that 
each instruction is put in appears on the 
screen. So you will be able to read the start 
address of the last instruction. You can then 
count the number of bytes the machine code 
equivalent of the last instruction takes and 
add it on to give the end address. 

But it is usual to *SAVE a couple of extra 
bytes to be on the safe side. Unfortunately 
this can cause overwriting problems. These 
extra bytes may overwrite the beginning of 
the program that follows. 

The answer is to *L0AD your programs 
back into the computer in order up memory. 
•LOAD the one with the lowest origin or start 
address first, then the next lowest, then the 
next and so on. This means that any extra 
bytes *SAVEd at the end of the routine will 
be overwritten by the beginning of the next 
program — instead of the other way round. 
And it means that any RTS that has been 
added to allow you to test single routines will 
be overwritten too. But don't forget to type in 
PAGE = &3000 and NEW before you *L0AD 
your machine code programs back. 

When all the routines and data tables have 
been *L0ADed, *SAVE them back to tape or 
disk as one program under another name — 
the start address will be the start address of 
the first program and the end address will be 
the end address of the last program. Then if 
you have any problem you can put the various 
pieces back together and try again. Don't 
forget to SAVE the assembly language and the 
BASIC POKEr programs as well in case you 
need to re-assemble them later. 



Add the following program lines to the 
BASIC data POKEr you've been building up, 



110 READ A$ 



120 FOR A = 1 TO LEN (AS) 

130 POKE AD,ASC(MID$(A$,A,1)) 

140AD = AD + 1 

150 NEXTA 

160 DATA ###!##!###!##! 

170FORA = 1 TO 702 

180 READA$:POKEAD,VAL("&H" + A$) 

190AD = AD + 1:NEXTA 

2001FAD<>18238THENPR1NT"ERROR" 

210 DATA 55,54,50,50,40,40,0,0,7F,5F,57, 
D7,F5,FF,D5,75,DD,77,5D,D5,7D,75,5D,77, 
F5,FD,57,75,DD,77,5D,D5,FD 5 5F,57,D7,5D, 
FF,D5,7F,75,77,FD,F7,D5,5D,75,77,55,D5, 
D5,5D,5D,D7,F5,7D,D5,5D,5D,D7,55,57, 
FF,7F,57,57,FD,FD 

220 REM sun 

230 DATA 55,75,D5,55,55,75,D5,55,75,75,D5, 
D5,5D,5D,D5,D5,5D,5D,D7,55,57,5D,D7, 
50,05,05,50,50,75,07,00,75,70,50,75, 
D5,5D,75,5D,D7,57,75,5D,5D,F5,D5,57,75, 
5D,D5,57,75,57,55,55,D7,F7,55,55,DD 

240 DATA 57,55,55,D5,77,55,55,DF,D5,D5,57, 
55,5D,D5,57,7F,F5,75,5D,55,57,75,5D,F5, 
57,5D,75,5F,5D,57,D7,55,75,75,57,55,55, 
77,75,D5,55,D7,75,D5,55,D7,75,75,57,57, 
5D,75,57,57,5D,55,55,57,5D,55 

250 REM numbers 

260 DATA 7D,D7,D7,D7,7D,5D,7D,5D,5D,FF, 
7D,D7,5D,75,FF,FD,57,FD,57,FD,5D,7D, 
DD,FF,5D,FF,D5,7D,57,FD,7F,D5,FD,D7, 
7D,FF,57,5D,75,75,7D,D7,7D,D7,7D,7F,D7, 
7F,57,57" 

270 REM graphics 

280 DATA 57,5F,5F,57,5F,5F,5F,5F,D5,F5,F5, 
D5,F5,F5,F5,F5,5F,5F,57,57,57,57,57,57, 
F5,F5 r D5,D5,D5,D5,D5,FD,55,55,55,55,55, 
55,55,55,57,5F,5F,57,55,57,57,57,D5,F5, 
F5,D5,55,55,55,FD,55,55,55,55,55,55,55, 
55,55,55,55,55,55,55,55,55,FD,55,57,5D, 
75 D5 75 55 

290 DATA 55,55,D5,75,5D,5D,5F,55,55,55,55, 
55,55,55,55,55,55,55,55,55,57,5F,5F,57,55, 
55,55,55,D5,F5,F5,D5,55,57,57,57,FO,55, 
57,5D,55,55,55,FD,55,55,D5,75,75,D5,75, 
55,55,55,55,55,5D,5D,5F,55,55,55,55,55, 

5F,57 
300 DATA 55,55,55,55,D5,F5,F5,D5,55,55,55, 

57,57,57,FD,55,57,5D,55,55,55,FD,55,55, 
05,75,55,55,55,55,55,55,55,55,55,55,55, 
55,55,55,55,55,75,D5,75,55,55,55,55,55, 
5D,5D,5F,55,55,55,55,55,55,55 
310 DATA 55,55,55,55,55,55,57,5F,7F,FF,FF, 
FF,7F,5F,F5,FD,FF,FF,FF,FD,F5,D5,55,55, 
55,55,55,55,55,55,5F,7F,FF,FF,FF,7F,5F,57, 
D5,F5,FD,FF,FF,FF,FD,F5,55,55,55,55,55, 
55,55,55,5D,57,55,55,55,55,55,55,5D,75, 
D5,D5,D5,D5,D5,D5,57,5F,7D,7F,7F,5F,57, 
57,D5,F5 




320 DATA FD,FD,FD,F5,D5,D5,57,57,55,55,55, 
55,55,55,D5,D5,F5,F5,7D,7D,5F,5F,55,55, 
55,55,57,57,5F,5F,7D,7D,F5,F5,D5,D5,55, 
55,7D,7D,F5,F5,7D,7D,5F,5F,55,55,7D,5F, 
7D,F5,D5,D5,55,55,AA,AA,56,56,AA,AA, 
55,55,AA,AA,95,95,AA,AA,55,55,7F,FF,FF, 
FF,7F,5F,81 

330 DATA 15,7D,FF,FF,FF,FD,F5,57,57,57,5F, 
5F,5F,5F,5F,55,55,55,D5,D5,D5,D5,D5,57, 
5F,7F,5F,5F,5F,57,57,55,D5,F5,D5,D5,D5, 
55,55,AA,AA,AA,A6,99,6A,AA,AA,AA,AA, 
AA,AA,A9,66,9A,AA,AA,AA,AA,6A,9A,A6, 
A9,AA,AA,AA,AA,A6,99,6A,AA,AA, 

The hashes and exclamation marks in Line 
160 define the silhouette of the cliff. A # 
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means a flat section and a ! means a slope. 

Lines 210 to 330 supply the data needed 
for the UDGs — the sun, the boulders, the 
picnic goodies, the holes, the snakes and 
Willie himself. It may look like there is a lot of 
data here, but to get smooth animation mov- 
ing objects have to be drawn in several 
positions. The UDGs are then alternated to 
give the impression of continuous action. 



THE SUM OF THE PARTS 



Long programs often have to be written and 
assembled in bits. This then gives you the 
problem of merging the bits together to give 
one long working program. And just because 



the separate parts work, this does not mean 
the whole thing will work when it is put 
together. 

One of the main problems is overwriting. 
If you have a few too many bytes there is a 
danger that you will overwrite part of the next 
routine. If you are CSAVEing your assembled 
routines using the machine code monitor you 
have to supply the start address and the 
number of bytes you want to CSAVE. Or if you 
use the Dragon's own machine code CSAVE 
command you use the format: 

CSAVEM "name", 

which again is followed by the start address, a 



comma, the last address to be CSAVEd, ano- 
ther comma, then the entry address. In this 
case you should not worry too much about the 
entry address as the machine code routines 
you have so far will be called by a bootstrap 
program you'll be given later. For now, 
though, give any old entry address. 

Obviously there is no problem with the 
start addresses. With machine code assembled 
from assembly language programming the 
start address of the object code is the same as 
the origin. After all, when the assembler is 
RUN it takes the origin and starts assembling 
the machine code program from there. And 
with data tables POKEd in from BASIC, the 
start address is the initial value of the variable 
in the FOR . . . NEXT loop which picks up the 
DATA and stores it in memory a byte at a time. 

But working out the number of bytes to be 
CSAVEd can cause problems. The end address 
given by assemblers is often the first free 
address past the end of the program. And 
sometimes all you are given is the start 
address of the last instruction, so if the 
routine does not end with a RTS, it does not 
give a true end address. 

The usual way round this problem is to 
CSAVE an extra couple of bytes. But that can 
cause overwriting problems. 

The answer is to Load your programs — 
using the CLOADM command — back into the 
computer in order up memory. Load the 
one with the lowest origin or start address 
first, then the next lowest, then the next and 
so on. This means that any extra bytes CSAVEd 
at the end of the routine will be overwritten 
by the beginning of the next program — 
instead of the other way round. And it means 
that any RTS that has been added to test 
routines will be overwritten too. 

When all the routines and data tables have 
been CLOADed, CSAVE them back to tape or 
disk as one program under another name — 
the start address will be the start address of 
the first program and the end address will be 
the end address of the last program. Then if 
you have any problem you can put the various 
pieces back together and try again. Don't 
forget to SAVE the assembly language using 
the SAVE option on your assembler and SAVE 
the BASIC POKEr programs just in case. 

If you have any problems with the data 
tables, you can LOAD up the machine code 
routines — in order up memory again — and 
LOAD up and RUN the BASIC POKEr 
programs again. These must be LOADed one 
at a time, RUN and NEWed before you LOAD 
the next one. Again the whole area of memory 
should be SAVEd to tape under a new program 
name. Alternatively you can SAVE the BASIC 
POKEr program as one large program. 



PIECING IT 
THEH 




Putting together a complex graphic 
image is simplified by assembly-line 
techniques— 'picking and dragging' 
shapes, and 'rubber-banding' to 
expand standard elements 



Computer Aided Design (CAD) packages can 
relieve the effort of repetitive design pro- 
blems such as planning a supermarket, in*' f 
which a large number of identical objects — 
shelves, freezers and so on — have to be fitted 
into a given floor area. 

This kind of software ranges from highly 
sophisticated packages running on large 
mainframes to simple programs running on 
home micros, such as INPUTs (see page 
566). No matter what the level of sophistic- 
ation, there are two basic principles 
employed — the unlikely-sounding 'rubber- 
banding' and 'picking and dragging'. 

This article looks at how you can pick and 
drag, and rubber-band in BASIC. 



RUBBER BANDING 



Rubber banding is the name given to the way 
in which shapes can be drawn using CAD 
programs. 

The idea behind rubber-banding is a 
simple one — it is easier to draw a straight line 
by defining the two end points and joining 
these together with a ruler than it is to draw a 
line freehand. This idea was used by the early 
Egyptians in pyramid construction and is still 
implemented on computers. In the computer 
version, you set one end of the line, and then 
allow a cursor to be moved round the screen at 
the other end. A line is always stretched 
between the two, and the technique gets its 
name because it looks like a rubber band as it 
is stretched and contracted. 

Experimenting with various lines on screen 
will allow you to visualise the alternatives 
before deciding on the final position. And the 
same basic idea can be extended from single 
lines to many, especially those used in geo- 
metric and regular shapes. 

Try the following program. It will allow 
you to experiment with rubber-banding for 
yourself. 



10 BORDER 0: PAPER 0: INK 7: CLS 
1 5 LET initialise = 80: LET rubberband = 

130: LET draw = 210: LET fix = 240 
1 7 DRAW 0,175: DRAW 255,0: DRAW 

0,-175: DRAW -255,0 
20 GOSUB initialise 




40 GOSUB rubberband 

50 IF INKEY$<> "q" THEN GOTO 40 

60 STOP 

90 OVER 1 

1 00 LET centrex = 1 28: LET centrey = 86 

110 LET x = 12S: LETy = 86 

1 1 5 PLOT centrex,centrey 

120 RETURN 

140 IF INKEY$ = "D" THEN GOSUB fix: 

GOTO 150 
145 GOSUB draw 

150 IF INKEY$ = "z" THEN LET x = x — 1 
1 60 IF INKEY$ = "x" THEN LET x = x + 1 
1 70 IF INKEYS = "k" THEN LET y = y + 1 
180IFINKEY$ = "m"THENLETy=y-1 
190 GOSUB draw 
200 RETURN 
220 PLOT centrex,centrey: DRAW x- PEEK 

23677,y- PEEK 23678 
230 RETURN 

250 OVER 0: GOSUB draw 
255 OVER 1 

270 LET centrex = x: LET centrey = y 
280 RETURN 



Like the following Commodore programs, 
the listing below uses Simon's BASIC to 
access the high resolution graphics. Commo- 
dore users will thus need either to plug in 
Simons' BASIC cartridge or enter INPUTs 
own hi-res graphics utility starting on pages 
872 to 877. In the latter case, the various hi- 
res commands need to be prefixed with an @. 
10 HIRES 0,1:POKE 650,128: 

MULTI 0,4,5 
20 CX = 80:CY = 1 00:X = CX:Y = CY 
100 GET AS:IFA$ = "D" THEN LINE 

CX,CY,X,Y,2:CX = X:CY = Y 
110IFA$ = "Z"ANDX>1 THENX = X-2 
120IFA$ = "X"ANDX<158 

THENX = X + 2 
130IFA$ = ";"ANDY>1 THEN Y = Y-2 
140 IF A$ = '7" AND Y < 1 99 

THENY = Y + 2 
160 FOR Z = 1 TO 2:LINE CX,CY,X,Y,4: 

NEXTZ 
170 GOTO 100 



BASIC PRINCIPLES OF 



COMPUTER AIDED DESIGN 
DRAWING SHAPES BY 



RUBBER BANDING 



FIXING POINTS 



PICKING AND DRAGGING 

MOVING SHAPES AT WILL 

EXPANDING, CONTRACTING 

AND ROTATING SHAPES 

FIXING SHAPES 



512 



10 MODE 4 

20 PROCinitialize 

30 REPEAT 

40 PROCrubberband 

50 UNTIL INKEY( — 17) 

60 MODE 6 

70 END 

80 DEF PROCinitialize 

90 GCOL 3,1 

1 00 centrex = 640:centrey 

110x = 640:y = 512 

120ENDPROC 

130 DEF PROCrubberband 

140PROCdraw 

150 If INKEY{ — 98) THEN x = x — 10 

160 IF INKEY{ — 67) THEN x = x + 10 

170 IF INKEY( 73) THEN v = y + 10 

180 IF INKEY{ — 105) THEN y = y 10 

200 ENDPROC 

210 DEF PROCdraw 

217 IFINKEY( — 99)THEN PROCfix 

220 MOVE centrex,centrey:DRAW x,y 

225 MOVE centrex,centrey:DRAW x,y 

230 ENDPROC 

240 DEF PROCfix 

250 GCOL 0,1:MOVE centrex,centrey:DR/Wx,y 

260 GCOL 3,1 

270 centrex = xxentrey = y 

280 ENDPROC 



140 IF PEEK(344) = V AND X< 255 THEN 

X=X + 1 
200UNE(CX,GY)-(X,Y),PSET 
210 RETURN 
300 GOSUB 200 

310 FORK = 1T04:PCOPYKTOK + 4:NEXT 
320CX = X:CY = Y 
330 RETURN 

The programs work very simply. A point in 
the centre of the screen is fixed, and a second 
point plotted and reptotted at a position 
determined by four keypresses — Z left, X 
right, K up and M down (Acorn users should 
use : for up and / for down, and Dragon, the 
arrow keys). A line is drawn between the two 
points continuously, the repeated drawing of 
the line gives it a flickery appearance. 

Once your line has been positioned to your 
satisfaction, you should press the space bar. 
This will fix the end point, and you can use 
the same four keys to stretch the line in 
another direction^ 



Acorn users may be a little confused by the 
use of GCOL in Lines 90 and 260. In a two- 
colour graphics mode, such as or 4, the 
GCOL 3 statement can be used successfully for 
animation — moving the line around the 
screen is really an animation exercise. The 
parameter 3 instructs the computer to Exclus- 
ively OR (EOR) the colour specified with the 
colour already present on screen. 

If you look at this truth table, you'll see 
how GCOL 3 works. A zero represents the 
colour specified not being present; a one 
represents the colour specified being present. 

EOR gives 

EOR 1 gives 1 

1 EOR gives 1 
1 EOR 1 gives 

If the colour specified is white, and the 
background is not white (black), putting a 
white shape on the black will give a white 
shape. Putting a white shape exactly on an 
identical white shape, will cause the white 
shape to turn black — in other words, the 



SSD 

Tandy owners should ensure that V is set to * ^ 
247 in Line 20. 



10PCLEAR8:PMOOE4,5:PCLS: 

PM0DE4,1:PCLS:SCREEN1,1 
20V = 223:CX = 127:CY = 95: 

X=127:Y = 95 
30 GOSUB 100 

40 FORK = 1T04:PCOPYK + 4TOK:NEXT 
50IFPEEK(338)<> 191 THEN 30 
60 CLS:END 

100 IF PEEK(345) = V GOSUB 300 
110 IF PEEK(341)=V AND Y>0THEN 

Y=Y-1 
120IFPEEK(342)=VANDY<191 THEN 

Y = Y + 1 
130 IF PEEK(343} = V AND X>0 THEN 

X = X — 1 




£? rfW; 







shape will disappear. In this program, then, 
the continual drawing and redrawing of the 
line turns it on and then off at each position, 
giving the animation effect. 

Now add these lines and see how much 
more flexible rubber-banding becomes when 
you can erase lines. 



15 LET initialize = 80: LET rubberband = 

130: LET draw =210: LET fix = 240: LET 

clear =310 
17 GOSUB clear 
144 IF 1NKEY$ = "c'THEN GOSUB 

clear:GOTO150 
310 CLS 
320 DRAW 0,175: DRAW 255,0: DRAW 

0,-175: DRAW -255,0 
330 GOSUB initialize 
340 RETURN 



T05 IF A$ = CHR$(13) THEN 
CX = X:CY = Y 



135 -FX 15,1 

145 IF INKEY( — 83) THEN PROCclear 

215 IF INKEY< — 51) THEN 

GCOL0,0:GOTO225 ELSE GC0L3,1 

300 DEF PROCclear 
310 CLG 

350 PROCinitialize 
360 ENDPROC 

HSU 

105 IF PEEK(339) = 191 THEN 

PMODE4,5:PCLS:PMODE4,1 

301 A$ = 1NKEY$ 

302 A$ = INKEY$:IFA$ = "" THEN 302 
304 IF A$ = "D" THEN 320 

The Commodore and Dragon/Tandy 
programs simply draw out the line when the 
D key is pressed (c in Spectrum), but again 
the Acorn program uses GCOL to erase the 
line. In Line 215, GCOL 0,0 draws a black line 
over whatever is displayed on screen. 



PICKING AMD DRAGGING 



In many CAD packages there is a range of 
predefined shapes presented as a menu. In an 
application such as room design, these shapes 
would be the various fittings and furniture, 
but picking and dragging, as it is called, can 
equally be applied to printed circuit design, 
where the predefined shapes will be the 
various electronic components that are to be 
used in the circuit. 

But why is this called picking and dragg- 
ing? Simply because to use this kind of 



package, you must pick a shape, and drag it to 
whatever position you wish. 

The program that follows allows you to 
pick and drag from a range of five geometrical 
shapes. In addition, you can plot them in any 
position on screen, and go on to manipulate 
another shape; expand or contract a shape; 
rotate a shape; or erase the screen. 



10 BORDER 0: PAPER 0: INK 7: OVER 0: CLS 
15 LET initialize = 100: LET pick = 270: LET 

give =430: LET drag = 490: LET 

point=390: LETdraw = 640: LET 

fix =700: LET clear = 750: LET 

check=820: LET triang = 860: LET 

square = 930: LET rectan = 1010: LET 

pent = 1090: LET hex = 1180 
17 GOSUB clear 
40 GOSUB pick 
50 GOSUB give 
60 GOSUB drag 

70 IF INKEY$< >"q" THEN GOTO 40 
80 STOP 
110 OVER 
1 20 LET x = 30: LET y = 50: LET phi = 0: LET 

seal = 1 
1 30 LET mex = 1 20: LET flag = 0: LET 

select = 
140LETc = scal*COS (phi) 
150LETs = scal*SIN (phi) 
170 LETtx = 32: LETty=25: GOSUB triang 
190 LETtx = 70: LETty=25: GOSUB square 
210 LETtx = 120: LETty=25: GOSUB rectan 
220 LETtx = 180: LETty=25: GOSUB pent 
230 LETtx = 230: LETty=25: GOSUB hex 
240 OVER 1 

250 PRINT OVER 1; INK 6;AT 20,mex/8;" a " 
260 RETURN 
300 GOSUB point 
310 GOSUB check 
320 IF CODE INKEY$ = 8 THEN LET 

mex = mex — 8 
330 IF CODE INKEY$ = 9 THEN LET 

mex = mex + 8 
340 GOSUB point 

350IFINKEY$ = "s"THEN LET flag = 1 
360 IF flag = THEN GOTO 300 
370 GOSUB point 
380 RETURN 

400 PRINT INK 6; OVER 1;AT 20,mex/8;" a " 
410 RETURN 

440 IF-mex<40 THEN LET select = 1 
450IFmex>=40ANDmex<70THEN LET 

select =2 
460.IFmex> =70 AND mex<150THEN LET 

sstsct = 3 
465 IFmex> =150 AND mex< 180 THEN 

LET sbI set = 4 
470 IF mex>= 180 THEN LET 

select =5 



*c" THEN GOSUB clear: 



480 RETURN 
510IFINKEY$ = 

GOTO 517 
515 GOSUB draw 

517 IF INKEY$ = "D" THEN GOSUB fix: 
GOTO 520 

518 GOSUB draw 

520 LET c = scal*C0S (phi) 
540 LET s = scal*SIN (phi) 
550 IF INKEY$ = "z" THEN LETx = x — 3 
560 IF INKEY$ = "x" THEN LETx = x + 3 
570IFINKEY$ = "k"THENLETy = y + 3 
580 IF INKEY$ = "m" THEN LET y = y-3 
590 IF INKEY$ = "n" THEN LET seal = scal*1.1 
600 IF INKEY$ = "j" THEN LET seal = scal/1.1 
610 IF INKEY$ = "h"THEN LET 

phi = phi + (6" PI/1 80) 
620IFINKEY$ = "b"THENLET 

phi = phi-(6-PI/180) 
630 RETURN 
645LETtx = x: LET ty = y 
650 IF select = 1 THEN GOSUB triang 
660 IF select = 2 THEN GOSUB square 
670 IF select = 3 THEN GOSUB rectan 
675 IF select = 4 THEN GOSUB pent 
680 IF select = 5 THEN GOSUB hex 
685 FOR n = 1 TO 30: NEXTn 
690 RETURN 
700 REM fix 
71 FOR n = 1 TO 100: NEXTn 

714 IF lNKEY$ = "d" THEN OVER 1 

715 IF INKEY$o"d" THEN OVER •' *** 
717 GOSUB draw 
720 PRINT AT 20,1;"nnDD! 

DDDDDDDDDDI 

DDDDDDDDDD 

□ □□□": OVER 1 
730 GOSUB initialize 
740 RETURN 
760 CLS 
770 DRAW 0,175: DRAW 255,0: 

0,-175: DRAW -255,0 
780 GOSUB initialize 
790 RETURN 
820 REM check 

830 IF INKEY$ = "c" THEN GOSUB clear 
840 IF INKEY$ = "e" THEN STOP 
850 RETURN 
860 REM triang 
870 PLOT INVERSE 1;tx,ty 
880 PLOT -7's+PEEK 23677,6"c + PEEK 

23678 
890 DRAW -6*c + 11*s,-5*s-9"c 
900 DRAW 12*c,10*s 
910 DRAW -6*c-irs,-5*s + 9*c 
920 RETURN 
930 REM square 
940 PLOT INVERSE 1;tx,ty 
950 PLOT 6'c-6*s + PEEK 23677, 

5*s+5*c + PEEK 23678 
960 DRAW 12*c, 10*s 




DRAW 
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970 DRAW 12*s,-10*c 

980 DRAW 12*c,10's 

990 DRAW -12*s,10*c 

1000 RETURN 

1010 REMrectan 

1020 PLOT INVERSE 1;tx,ty 

1030 PLOT 12 , c-6"s + PEEK 23677, 

10*s + 5*c + PEEK 23678 
1040 DRAW -24*c,-20 4 s 
1050 DRAW 12*s,-10'c 
1060 DRAW 24*c,20*s 
1070 DRAW -12*s,10*c 
1080 RETURN 
1090 REM pent 
1100 PLOT INVERSE 1;tx,ty 
1110 PLOT -10*s + PEEK 23677, 

9'c + PEEK 23678 
1 1 20 DRAW - 1 0"c + 7*s, - 8"s - 6*c 



The program works as follows: 

Lines 110 to 260 are the initialization 
subroutine, setting values for a range of 
variabtes, and drawing the shapes along the 
bottom of the screen by calling the appropri- 
ate subroutines. 

Lines 300 to 380 read the left and right 
cursor keys, allowing you to move the arrow, 
and the s key, which makes the picked shape 
appear at the centre of the screen. Lines 400 
and 410 are the point subroutine, replotting 
the arrow in response to the cursor key 
presses. 

Lines 440 to 480 are the give subroutine. It 
checks the position of the arrow in relation to 



key. Lines 760 to 790 are the clear subroutine, 
which is called when the c key is pressed — the 
check is in the check subroutine. The check 
subroutine — Lines 820 to 840 — also checks 
for the escape option — pressing the e key — 
which stops the program. 



IE 



10 HIRES 0,1:POKE 650,128 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 GOSUB 4000 

60 GOTO 20 



■ 
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1130 DRAW 4*c + 13*s,3*s-11*c 

1140 DRAW 12*c,10*s 

1150 DRAW 4*c — 13*s,3's + 1Tc 

1160 DRAW -10'c-7*s,-8*s+6*c 

1170 RETURN 

1180 REM hex 

1190 PLOT INVERSE 1;tx,ty 

1200 PLOT -12-S + PEEK 23677, 

10*c + PEEK 23678 
1210 DRAW -10*c + 6's,-8*s-5'c 
1220 DRAW 12*s,-10'c 
1230 DRAW 10*c + 6-s,8*s-5*c 
1240 DRAW 10*c-6*s,8*s + 5*c 
1250 DRAW — T2*s,10*c 
1260 DRAW -10'c-6's,-8*s + 5*c 
1270 RETURN 
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the range of shapes. The select variable is set 
according to the position of the pointer. 

The drag subroutine is at Lines 510 to 630. 
The selected shape is redrawn in response to 
key presses. The shape can be moved around 
using the z, x, k and m keys; n and j allow you 
to scale the shape up or down; and h and b 
allow you to rotate the shape clockwise or 
anticlockwise. The space bar fixes the shape 
on screen. 

The shapes are drawn by a combination of 
the draw subroutine, between Lines 645 and 
690, and the various shapes subroutines — 
select tells the program which one is to be 
drawn. 

The fix subroutine — Lines 710 to 740 — 
fixes the shape on screen in response to the d 



CC = 1:X = 40:Y = 131: 
PH=0:SC = 1 
1010 ME = 122 
1020 C = SC:S = 

1030 X = 60:Y = 177:GOSUB 5000 

1040 X = 100:Y = 174:GOSUB 5100 

1050 X = 140:GOSUB 5200 

1060 X = 180:Y = 170:GOSUB 5300 

1 070 X = 220:GOSUB 5400 

1090X = 160:Y = 100 

1100 RETURN 

2000 GOSUB 2500 

2010 GET A$ 

2020 IF A$ = "ii" AND ME>52 THEN 

ME = ME-10 
2030 IF A$ = "||" AND ME<232 THEN 

ME = ME + 10 
2050 IF A$o"S" THEN 2000 
2070 RETURN 
2500 FOR Z = 1 TO2:TEXTME/I90, 
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"t",2,1,8:NEXTZ 
2510 RETURN 

3000 SL = 5:IFME<222 THEN SL = 4 
3010 IF ME<172 THEN SL = 3 
3020 IF ME < 112 THEN SL = 2 
3030 IF ME<82 THEN SL = 1 
3040 RETURN 
4000 CC = 2:F0R Z = 1 TO 2:ON SL GOSUB 

5000,5100,5200,5300, 

5400:NEXTZ 
4010 GET A$ 
4020 IF A$ = " D " THEN CC = 1 :0N SL 

GOSUB 5000,5100,5200,5300, 

5400:RETURN 
4030C = SC"COS(PH) 
4040S = SC'SIN(PH) 
4050 IF A$ = "||" THEN X = X-3 
4060 IF A$ = "|J" THEN X = X + 3 
4070 IF A$ = "n" THEN Y=Y-3 
4080 IF A$ = "H" THEN Y=Y + 3 
4090 IF A$ = "M" THEN SC = SC'1.1 
4100 IF A$ = "N" THEN SC = SC/1.1 
4110 IF A$ = "K" THEN 

PH = PH + ATN(1)/7.5 
4120 IF A$="L" THEN 

PH = PH-ATN(1)/7.5 
4140 IF A$ = CHR$(13) THEN 

RETURN 
41 45 IF A$ = "Q" THEN END 
4150 GOTO 4000 
5000 LINE X-7.2*S,Y-7.2*C, 

X- 6*C + 3.6*S,Y + 6*S + 3.6-C,CC 
5010 LINE X - 6*C + 3.6*S,Y + 6'S + 3.6*C, 

X + 6*C + 3.6*S,Y - 6*S + 3.6*C,CC 
5020 LINE X+6*C + 3.6*S, 

Y-6 , S + 3.6 , C,X-7.2'S,Y-7.2'C,CC 
5030 RETURN 

5100 line x+e's-e^cY-e's-ex, 
x-e-s-e'CY+e-s-e'ccc 

5110 LINE X — 6'S — 6'C,Y + 6*S - 6*C, 
X + 6"S-6"C,Y + 6*S + 6*C,CC 

5120 line x+e's-e'CY+e's+e'c, 

X + B*S + 6*C,Y + 6*C-6'S,CC 
5130 LINE X + e'S + e'CY + B'C-e'S, 

x+e'c-e's^-e's-e'ccc 

5140 RETURN 

5200 LINE X + ^'C-e'CY-e'C-^'S, 

X-^'C-G'S^-e'C + ^'S^C 
5210 LINE X-12*C-6*S,Y-6'C + 12*S, 

X-U'C + e-S^ + G'C + ^'S^C 
5220 LINE X-12*C + 6*S,Y + 6*C + 12*S, 

X-fi12*C + 6"S,Y + 6*C-12"S,CC 
5230 LINE X + 12*C + 6*S,Y + 6*C-12*S, 

x+^'c-e'sj-e'c-^'s^c 

5240 RETURN 

5300 LINE X-10.2"S,Y-10.2*C, 

X- 9.8*C - 3.2*S,Y - 3.2*C + 9.8*S,CC 
5310 LINE X-9.8"C-3.2"S, 

Y-3.2*C + 9.8*S,X-6'C + 10.2'S, 

Y + 10.2*C + 6'S,CC 
5320 LINE X B*C + 1 0.2*S,Y + 1 0.2'C + 6'S, 



X + 6 , C + 10.2"S ) Y + 10.2*C-6*S S CC 
5330 LINE X + GX + \Q.rS,Y + W.TQ-VS, 

X + 9.8*C-3.2*S,Y-3.2'C-9.8*S,CC 
5340 LINE X + 9.8*C-3.2-S, 

Y - 3.2*C - 9.8*S,X - 1 0.2'S,Y - 10.2*C, 

CC 
5350 RETURN 
5400 LINE X-12*S,Y-12"C, 

X-10.4*C-6*S,Y-6*C + 10.4*S,CC 
5410 LINE X-10.4*C-6*S,Y-6*C + 10.4*S, 

x-^'c+e'sj+e'c+io^cc 

5420 LINE X-10.4*C + 6*S,Y + 6*C + 10.4*S, 

X + 12*S,Y + 12*C,CC 
5430 LINE X + 12*S,Y + 12*C, 

X + 10.4*C + 6*S,Y + 6"C-10.4*S,CC 
5440 LINE X + WA'C + G'S,y + G'C-WA'S, 



1 000 X = 20:Y = 1 31 : PH = 0:SC = 1 

1010 ME = 122:ST = 0:V1 =223: 

V2 = 247 
1020C = SC:S = 0:COLOR5 
1030X = 40:Y = 177:GOSUB5000 
1040X = 80:Y = 174:GOSUB5100 
1050X = 120:GOSUB5200 
1060X = 160:Y=170:GOSUB5300 
1070X = 200:GOSUB5400 
1080 FORK = 1T04:PCOPYKTOK + 4:NEXT 
1090 X = 127:Y = 85 
1100 RETURN 

2000 COLOR0:GOSUB 2500 
2010A$ = INKEY$:GOSUB4500 




x+iOTC-^Y-e-c-io.wc 

5450 LINE X + IOTC-S'SJ-e'C-IOTS, 

X-12"S,Y-12*C,CC 
5460 RETURN 



Tandy owners should alter the values of V1 
and V2 in Line 1010. Make V1 equal to 247, 
and V2 equal to 253. 

10PCLEAR8:PMODE4,5:PCLS: 
PMODE4,1:PCLS:SCREEN1,1 
20 GOSUB 1000 
40 GOSUB 2000 
50 GOSUB 3000 
60 GOSUB 4000 
70IFINKEY$o"Q"THEN40 
80 CLS:END 



2020IFA$ = CHR$(8)ANDME>32THEN 

ME = ME-10 
2030 IF A$ = CHR$(9) AND ME < 21 2 THEN 

ME = ME + 10 
2040 COLOR5:GOSUB2500 
2050 IF A$o"S" THEN 2000 
2060 COLOR5:GOSUB2500 
2070 RETURN 
2500 DRAW'BM" + STR$(ME) + 

",190U5NG2F2" 
2510 RETURN 

3000 SL = 5:IF ME<192THEN SL = 4 
3010 IF ME<152 THEN SL = 3 
3020 IF ME<102 THEN SL = 2 
3030IFME<62THENSL = 1 
3040 RETURN 
4000 ON SL GOSUB 5000,5100,5200, 

5300,5400 
4010IFPEEK(339) = 191 THEN 



PCLS:GOSUB1000:RETURN 
4020 IF PEEK(345) = V1 THEN FOR 

K = 1T04:PC0PYKT0K + 4:NEXT: 

RETURN 
4030C = SC , COS(PH) 
4040 S = SCSI N(PH) 
4050 IF PEEK(343} = VI THEN X = X-1 
4060 IF PEEK{344) =V1 THEN X = X + 1 
4070 IF PEEK{341) =V1 THEN Y = Y-1 
4080 IF PEEK{342) =V1 THEN Y=Y + 1 
4090 IF PEEK{343) =V2 THEN SC = SC*1 .1 
4100 IF PEEK(344)=V2 THEN SC = SC/1.1 
4110 IF PEEK(341)=V2 THEN 

PH = PH + ATN(1)/7.5 
4120 IF PEEK(342) = V2 THEN 

PH = PH-ATN(1)/7.5 
4130 F0RK = 1T04:PCOPYK + 4TOK:NEXT 
4150 IF PEEK(338)=V1 THEN RETURN 

ELSE4000 
4500 IF A$ = CHRS(12) THEN PCLS: 

GQSUB1000 
4510 IFA$ = "Q"THENCLS:END 
4520 RETURN 
5000 LINE(X-7.2*S,Y — 7.2*C) — 



5130 UNE-(X + 6*C-6*S,Y-6*S-6*C), 

PSET 
5140 RETURN 
5200 LINE(X + 1 2'C - 6*S,Y — 6*C — 1 2*S) - 

(X — 12*C — 6*S,Y-6"C + 12*S),PSET 
521 LINE -(X-1 2'C + 6*S,Y + 6*C + 12*S), 

PSET 
5220 LINE -(X + 12'C + 6*S,Y + 6*C-12*S), 

PSET 
5230 LINE -(X + 12*C-6*S,Y-6*C-12 , S), 

PSET 
5240 RETURN 
5300 LINE(X-10.2*S,Y-10.2*C)- 

(X - 9.8*C - 3.2*S,Y - 3.2'C + 9.8'S),PSET 
5310 LINE -(X-6'C + 10.2'S,Y + 10.2*C + 

6'S),PSET 
5320 LINE- (X + 6*C + 1 0.2'S,Y + 10.2'C- 

6*S),PSET 
5330 LINE - (X + 9.8*C - 3.2*S,Y - 3.2'C - 

9.8*S},PSET 
5340 LINE - (X - 1 0.2'S,Y - 1 0.2*C),PSET 
5350 RETURN 
5400 LINE(X-12*S,Y -1 2'C) - 

(X-10.4"C-6*S,Y-6'C + 10.4'S),PSET 
541 LINE - (X - 1 0.4'C + 6*S,Y + 6*C + 

10.4*S),PSET 
5420 LINE - (X + 1 2*S,Y + .1 ?"C),PSET 



5430 LINE - (X + 1 0.4*C + 6*S,Y + 6*C - 

10.4*S),PSET 
5440 LINE - (X + 1 0.4*C - 6*S,Y - 6*C - 

10.4*S),PSET 
5450 LINE - (X - 1 2*S,Y - 1 2'C),PSET 
5460 RETURN 

Initialization takes place between Lines 
1000 and 1100. Lines 2000 to 2070 are the 
picking subroutine. The arrow beneath the 
range of five shapes is moved in response to 
the left and right cursor controls. 

Lines 3000 to 3040 determine which shape 
is being pointed at — ME is the position of the 
arrow. Pressing the S key will make the shape 
appear in the main screen area. 

Lines 4000 to 4150 are the drawing sub- 
routine. Line 4000 directs the program to the 
subroutine containing the instructions for 
drawing the chosen shape. Line 4020 fixes the 
shape on screen if the space bar is pressed. 
Lines 4090 and 4100 read the M and N keys, 
which cause the shape to get bigger or smaller. 
The final option is rotation — Lines 41 10 and 
4120 read the K and L keys. Pressing [CLEAR | 
will clear the screen, ready for next effort. 

The remaining subroutines contain in- 
structions for drawing the five shapes. Lines 
5000 to 5030 draw the triangle; Lines 5 1 00 to 
5140 draw the square; Lines 5200 to 5240 
draw the rectangle; Lines 5300 to 5350 draw 
the pentagon and Lines 5400 to 5460 draw 
the hexagon. 

There is no error checking in the program, 
so any attempt to draw off the screen to the 
top or left will produce an FC ERROR. Pressing 
Q will cause the program to end. 




(X - 6'C + 3.6*S,Y + 6*S + 3.6*C),PSET 
501 LINE - (X + 6*C + 3.6'S,Y - 6'S + 

3.6*C),PSET 
5020 LINE -(X-7.2'S,Y-7.2'C), PSET 
5030 RETURN 
5100 LINE(X + 6'C-6'S,Y-6'S-6'C)- 

(X - 6'S -6*C,Y + 6*S-6*C), PSET 
5110 LINE - (X + 6'S -6'C,Y + 6'S + 6'C), 

PSET 
51 20 LINE - (X + 6*S + 6*C,Y + 6*C - 6'S), 

PSET 
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10MODE4 

20 PROCinitialize 

30 REPEAT 

40 PROCpick 

50 PROCgive 

60 PROCdrag 

70 UNTIL INKEY( — 17) 

80 MODE 6 

90 END 

100 DEF PROCinitialize 

110 GCOL 0,1 

1 20 x = 1 00:y = 300:phi = 0:scal = 1 

130 mex = 608:flag = FALSE:select=0 

H0c = scal*COS(phi) 

150s = scal*SIN(phi) 

160VDU5 

170PROCtriang{1 20,100) 

180 MOVE ©^OOiPRINTi'-triangle 5 ' 

190PROCsquare(360,100) 

200 MOVE 272,200:PRINT;"square" 

210 PROCrectan(620,100) 

220 MOVE 482,200:PRINT;"rectangle" 

230 PROChexgon(880,100) 

240 MOVE 782,200:PRINT;"hexagon" 

250 PROCpentgon(1 130,1 00) 

260 MOVE 101 4,200: PRINT"pentagon" 

270 GCOL 3,1 

280 ENDPROC 

290 DEF PROCpick 

300 PROCpoint(mex) 

310 REPEAT 

320 PROCpoint(mex) 

330 PROCcheck 

340 IF INKEY( — 26) 

THEN mex = mex- 10 
350 IF INKEY( — 122) 

THENmex = mex + 10 
360 PROCpoint(mex) 
370 IF INKEY( — 82) THENflag = TRUE 
380 UNTIL flag 
390 PROCpoint(mex) 
400 ENDPROC 
410 DEF PROCpoint(menux) 
420 MOVE menux,20 
430 VDU 94 
440 ENDPROC 
450 DEF PROCgive 
460 IF mex< 200 THEN select = 1 
470 IFmex>=200AND mex<450THEN 
sslsct = 2 
480 I F mex > = 450 AN D mex < 720 TH EN 

SGlsct — 3 
490 I F mex > = 720 AN D mex < 970 TH EN 

select =4 
500 IF mex > 970 THEN select = 5 
510 ENDPROC 
520 DEF PROCdrag 
540 IF 1IMKEY( — 83) THEN PROCclear ELSE 

PROCdraw(select) 



550 IF INKEY(-99) THEN PROCfix ELSE 

PROCdraw(select) 
560c = scal*COS(phi) 
570 s=scarSIN{phi) 
580 IF INKEY( — 98) 

THENx = x-10 
590 IF INKEY(— 67) 

THENx = x + 10 
600 IF INKEY(— 73) 

THEN y=v + 10 
610 IF INKEY( — 105) 

THEN y = y— 10 
620 IF INKEY( — 102) 

THEN seal = scal'1. 1 
630 IF INKEY( — 86) 

THEN seal =scal/1,1 
640 IF INKEY( — 71) 

THEN phi = phi + RAD(6) 
650 IF INKEY( — 87) 

THEN phi = phi -RAO{6) 
660 ENDPROC 
670 DEF PROCdraw(select) 
680 IF select = 1 

THEN PROCtriang{x,y) 
690 IF select = 2 

THEN PROCsquare(x,y) 
700 IF select =3 

THEN PROCrectan(x,y) 
710 IF select =4 THEN PROChexgon(x,y) 
720 IF select=5 THEN PROCpentgon(x,y) 
730 ENDPROC 
740 DEF PROCfix 
750 GCOL 0,1 :PROCdraw(select) 
760 GCOL 3,1 
770 PROCinitialise 
780 ENDPROC 
790 DEF PROCclear 
800 GCOL 0,0 

810 MOVE 0,210:MOVE 1279,210 
820 PLOT 85,1 279,1 023;MOVE 0,1023 
830 PLOT 85,0,210 
840 PROCinitialise 
850 ENDPROC 
860 DEF PROCcheck 
870 IF INKEY{-83) THEN PROCclear 
880 IF 1NKEY{ — 17) THEN END 
890 ENDPROC 
900 DEF PROCtriang(x,y) 
910 MOVE x,y 
920 PLOT 0,-36*s,36*c 
930 PLOT 1,-30*c + 54*s,-30*s-54*c 
940 PLOT 1,60"c,60's 
950 PLOT 1 , - 30*c — 54*s, - 30*s + 54^ 
960 ENDPROC 
970 DEF PROCsquare(x,y) 
980 MOVE x,y 

990 PLOT 0,30*c-30*s,30*s + 30*c 
1000 PLOT 1,-60'c,-60*s 
1010 PLOT 1,60*s,-60'c 
1020 PLOT 1,60*c,60*s 
1030PLOT1,-60*s,60*c 



1040 ENDPROC 

1050 DEF PROCrectan(x,y) 

1060 MOVE x,y 

1 070 PLOT 0, 60*c - 30*s,60's + 30*c 

1080 PLOT 1,-120*c,-120*s 

1090 PLOT 1,60*s,-60*c 

1100PLOT1,120*c,120*s 

1110 PLOT 1,-60*s,60*c 

1120 ENDPROC 

1130 DEF PROCpentgon(x,y) 

1140 MOVE x,y 

1150PLOT0,-51*s,51*c 

1 1 60 PLOT 1 , - 49*c + 35*s, - 49*s - 35*c 

1170PLOT1,19*c+67*s,19*s-67*c 

1180 PLOT 1,60*c,60*s 

1190 PLOT 1,19*c-67*s,19*s + 67*c 

1 200 PLOT 1 , - 49*c - 35*s, - 49*s + 35*c 

1210 ENDPROC 

1220 DEF PROChexgon(x,y) 

1230 MOVE x,y 

1240 PLOT 0,-60*s,60'c 

1 250 PLOT 1 , - 52*c + 30*s, - 52's - 30*c 

1260 PLOT 1,60*s,-60*c 

1270 PLOT 1,52*c+30*s,52*s-30*c 

1 280 PLOT 1 ,52'c - 30*s,52*s + 30*c 

1290 PLOT 1,-60*s,60*c 

1 300 PLOT 1,- 52'c - 30*s, - 52*s + 30'c 

1310 ENDPROC 

The program works like this; 

After initialization, the program enters the 
program's main loop— the REPEAT. . .UNTIL 
between Lines 30 and 70. The program will 
run until the Q key is pressed, which will END 
the program. PROCinitialize sets the size, po- 
sition and orientation of the shape you choose. 
The five shapes are drawn at the bottom of the 
screen. 

PROCpick, between Lines 290 and 400, reads 
the left and right cursor keys, so you can point 
to the desired shape. PROCpoint is to be found 
between Lines 410 and 430, and prints the 
arrow on screen. 

PROCgive checks the position of the arrow, 
and sets select according to the shape being 
pointed at. PROCdrag first checks for a press on 
the C key — this clears the screen — and then 
checks for a press on the space bar — this fixes 
the shape on the screen. The rest of the 
PROCedure reads the Z,X,: and / keys, which 
move the shape, and then read the M and N 
keys, which alter the size of the shape, and the 
K and L keys which rotate the shape. 

PROCdraw calls the appropriate shape draw- 
ing PROCedure, according to the value of select 
which has been passed. The shapes are drawn 
by the PROCedures at the end of the program, 
and their functions are given by their names. 

Finally, PROCcheck reads the C and Q keys. 
A press on C will clear the screen, and Q will 
quit the program. 
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PART TWO OF OTHELLO 



COMPLETING THE 



PLAYER'S TURN 



THE COMPUTER'S MOVE 



ANNOUNCING THE WINNER 



After the interval, INPUTS Othello 
game comes to its climax. At the 
end of the second half you'll have 
the complete game to act upon. 
Now make up some wily moves . . . 

When you have completed this second part of 
the Othello game you will have the whole 
program to pit your wits against. This time, 
here are the lines needed to complete the 
player's turn, along with the computer's move 
routine, and the end of game routine. 



AFTER THE INTERVAL 



2090 IF NF = 1 THEN GOTO 2120 

2100 PRINT AT 17,0;"YOUR MOVE ISN'T 

NEXT TO ONE OFDD MY PIECES": FOR 

F = 1 TO 500: NEXT F 
21 10 PRINT AT 17,0;"D □ DDDD 

DDDDDDDDDDDDDDD 

DDDDDDDDDDDDDDD 

DDDDD": GOTO 2000 
2120 LET RF = 0: FOR = 1 TO 8: IF 

C(Q) = THEN GOTO 2170 
21 30 LET XP = X: LET YP = Y 
2140 LETXP = XP + D(Q,1): LET 

YP = YP + D(Q,2): IF XP = OR XP = 9 

OR YP = OR YP = 9 THEN LET C(Q) = 0: 

GOTO 2170 
2145 IF B(XP,YP) = 2 THEN GOTO 2140 
2150 IF B(XP,YP) = 1 THEN LET RF = 1: 

GOTO 2170 
2160 IF B(XP,YP)=0 THEN LETC(Q) = 
2170 NEXT Q 
2180 IF RF = 1 

THEN GOTO 

2210 



2190 PRINT AT 17,0;"YOUR MOVE DOES NOT 

FLANK A ROW": FOR F = 1 TO 500: NEXT 

F 
2200 PRINT AT 17,0;"D □ O □ □ □ 

DDDDDDDDDDDDDDD 

DDDDDDDDD": GOTO 2000 
2210 FOR = 1 TO 8: IF C(Q) = 0THEN 

GOTO 2250 
2220 LET XP = X + D(Q,1): LET 

YP = Y + D(Q,2) 
2230 IF B(XP,YP) = 1 THEN GOTO 2250 
2240 LET B(XP,YP) = 1: LET 

XP = XP + D(Q,1): LETYP = YP + D(Q,2): 

GOTO 2230 
2250 NEXT Q 
2260 LET B(X,Y) = 1 
2270 LET CP = 2: RETURN 



sa 



2090IFNF = 1THEN2120 

2100 PRINT"MYOUR MOVE ISN'T 

NEXT TO ONE OF MY PIECES": 

FORF = 0TO1500:NEXT 

2H0PRiNT"nnnnnnnn 

DDDDDDDDDDDDDDD 
DDDDDDDDDDDDDDD 

□ □ □ □ nnnnn":GOTO2000 

2120 RF = 0:FORQ = 1TO8:IFC(Q) = 

THEN2170 
2130XP = X:YP = Y 

2140XP = XP + D(Q,1):YP = YP + 



D(Q,2):IF(XP = 0ORXP = 9)OR 

(YP = 0ORYP = 9)THENC(Q) = 0: 

GOTO2170 
2145IFB{XP,YP) = 2THEN2140 
2150IFB(XP,YP) = 1THENRF = 1: 

GOTO2170 
2160IFB(XP,YP) = 0THENC(Q) = 
2170 NEXT 

2180 1FRF = 1THEN2210 
2190 PRINT" HYOUR MOVE DOES 

NOTFLANKAROW":FORF = 0TO 

1500: NEXT 
2200 PRINT"n □ D D D D D D 

DDDDDDDDDDDDDDD 

DDDDDDDDnDGn": 
GOTO2000 

2210FORQ = 1TO8:IFC(Q)=0THEN2250 
2220XP = X + D(Q,1):YP = Y+D(Q,2} 
2230IFB(XP,YP) = 1THEN2250 
2240 B{XP,YP) = 1 :XP = XP + D{Q,1 ): 

YP = YP + D(Q,2):GOTO2230 
2250 NEXTQ 
2260 B(X,Y) = 1 
2270CP = 2:RETURN 



i£ii 




2090 IF NF = T THEN 2120 
2100COLOR1:LINE(0,182}-(255, 
1 91 ),PSET,BF:DRAW"C4S8BM0, 
182":A$ = "THAT ISNT NEXT TO ONE OF 
MINE":GOSUB 9300: FOR F = 1 TO 
900:NEXTF 
2110 GOTO 2000 
2120 RF = 0:FOR Q = 1 TO8:lFC(Q)=0 

THEN 2170 
2130XP = X:YP = Y 

2140XP = XP + D(Q,1):YP = YP + D(Q,2): 
IF XP = OR XP = 9 OR YP = OR YP = 9 
THEN C(Q) = 0:GOTO 2170 
2145 IF B{XP,YP) = 2 THEN 2140 
2150IFB(XP,YP) = 1 THEN RF=1: 
GOTO 2170 
2160 IF B{XP,YP) = THEN 

C(Q)=0 
2170 NEXTQ 

2180 IF RF = 1 THEN 2210 
2190 C0L0R11INE (0,182) - 
(255,1 91 ),PSET,BF:DRAW 
"S8C4BM0, 182":A$="Y0UR 
MOVE DOESNT FLANK A ROW": 
GOSUB 9300: FOR F = 1 TO 



1005 
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900:NEXTF 
2200 GOTO 2000 
2210 FOR Q = 1 TO 8:IF C{Q) = 

THEN 2250 
2220XP=X + D(Q,1):YP = Y+D(Q,2) 
2230 IF B(XP,YP) = 1 THEN 2250 
2240B(XP,YP) = 1:XP = XP + D(Q,1): 

YP = YP + D(Q,2):GOTO2230 
2250 NEXT Q 
2260 B(X,Y) = 1 
2270 CP = 2:RETURN 

Line 2090 checks the flag NF, to make sure 
that there is a piece belonging to the computer 
in an adjoining square before jumping to Line 
2120. If there isn't a piece, Line 2100 
displays an error message. 

The program next checks in Lines 2120 to 
2170 to see if the move flanks a row. 

Line 2140 makes sure that the position 
being checked falls within the boundaries of 
the board. If it doesn't, then that direction is 
abandoned and the next tried. Line 2145 
makes sure that the piece being checked does 
belong to the computer. If it does, then the 
program jumps back to Line 2140 to update 
the position. 

In Line 2180 the success of the last 
operation is checked. If a row was found the 
program jumps' to Line 2210. Lines 2190 to 
2200 PRINT a message to tell the player that a 
row has not been flanked and the program 
jumps back to Line 2000. 

The move itself is made in Lines 2210 to 
2260. The loop in Line 2210 checks if a 
suitable row has been found by looking at 
C(Q). If there is not a row in that direction the 
program jumps to the NEXT Q at Line 2250. 
XP and YP are set to the first square of the row 
being taken — see Line 2040. 

In Line 2230 the computer checks for the 
end of a row. If an end is found, the program 
jumps to Line 2250. Line 2240 sets the 
square to one then jumps back to Line 2230 to 
check the next square. 

In Line 2260 the player's square is set to 
one. The CP flag is set to two for the computer 
in Line 2270 and the program RETURNS. 



THE COMPUTER'S MOVE 



3000 PRINT ""THINKING . . .": LET NF = 1: 

LETMX = 0: F0RX = 1 TO 8: FOR Y = 1 

TO 8 
3010 IF B(X,Y}o0THEN GOTO 3070 
3020 FOR F-1 TO 8: LETXP = X: LET 

YP = Y: LET DX = D(F,1): LET DY = D(F,2): 

LET RF = 
3030 LET XP = XP + DY: LET YP = YP + DX: IF 



XP = OR XP = 9 OR YP = OR YP = 9 

THEN GOTO 3060 
3040IFB(XP,YP) = 1 THEN LET RF = 1: 

GOTO 3030 
3050 IF B(XP,YP) = 2 AND RF = 1 THEN LET 

N(NF) = F: LETX(NF)=X: LET Y{NF)=Y: 

LET N F = N F + 1 : LET F = 9 
3060 NEXT F 

3070 NEXT Y: NEXTX: LET NF = NF — 1 
3075 IF NF = THEN GOTO 3300 
3080 FOR F = 1 TO NF: LETX=X(F): LET 

Y = Y(F): LET DX= D(N(F),1): LET 
DY = D(N(F),2):LETCF = 

3090 LET X = X + DY: LETY = Y + DX: IF 
B(X,Y) = 1 THEN LET CF = CF + 1 : GOTO 
3090 

3100 IF CF> MX THEN LETMX=CF: LET 
MF = F 

3110 NEXT F 

3180 FOR F = T TO 8: LETX = X(MF): LET 

Y = Y(MF): LET DX = D(F,1): LET 
DY=D(F,2} 

3190 LET X = X+DY: LET Y = Y + DX 
3195IFX<1 0RX>80RY<1 0RY>8 

THEN GOTO 3260 
3200IFB(X,Y) = 1 THEN GOTO 3190 
3210 IF B{X,Y) = 2 THEN GOTO 3230 
3220 IF B(X,Y) = THEN GOTO 3260 
3230 LET X = X(MF): LETY = Y(MF) 
3235 LET-B(X,Y) = 2: LETX = X+DY: LET 

Y = Y + DX 

3240 IF B{X,Y} = 2 THEN GOTO 3260 

3250 GOTO 3235 

3260 NEXT F 

3265 PRINT X{MF),Y(MF): INPUT AS 

3270 LET CP = 1: RETURN 

3300 PRINTAT17,0;"1 CANNOT 

MAKEAM0VE":F0R F = 1 TO 

500: NEXT F 
3305 PRINTAT 17,0;"D □ DDDD 

DDDDDDDDDDDDD 

DDDDDDDDDDDDD" 
3310 LET CP=1 
3320 RETURN 



3000NF = 1:MX = 0:FORX = 1TO8: 

F0RY = 1T08 
3010IFB(X,Y)o0THEN3070 
3020FORF = 1TO8:XP = X:YP = Y: 

DX=D(F,1):DY = D(F,2):RF = 
3030XP = XP + DY:YP = YP + DX:IF 

(XP = 0ORXP = 9)0R(YP = 0ORYP = 9) 

THEN3060 
3040IFB(XP,YP) = 1THENRF = 1: 

GOTO3030 
3050 IFB(XP,YP) = 2AND RF = 1 THEN 

N(NF) = F:X(NF) = X:Y{NF)=Y: 

NF = NF + 1:F=9 
3060 NEXT F 
3070 NEXT Y:NEXTX:NF = NF-1 




3075 IF NF = THEN 3300 
3080FORF = 1TONF:X = X(F):Y = 

Y(F):DX = D(N(F),1):DY=D(N 

(F),2):CF = 
3090X=X + DY:Y = Y + DX:IFB(X,Y) 

= 1THENCF = CF + 1:GOTO3090 
3100 IFCF>MXTHENMX = CF:MF=F 
3110 NEXT 
3180FORF = 1TO8:X = X(MF):Y = Y 

(MF):DX = D(F,1):DY=D(F,2) 
3190X = X + DY:Y = Y + DX 
3195IFX<1 0RX>80RY<1 0RY>8 

THEN3260 
3200IFB(X,Y) = 1THEN3190 
3210IFB(X,Y) = 2THEN3230 
3220IFB(X,Y) = 0THEN3260 
3230X = X(MF):Y = Y(MF) 
3235 B(X,Y) = 2:X = X + DY:Y = Y + DX 
3240IFB(X,Y) = 2THEN3260 
3250 G0T03235 
3260 NEXT 
3265 PRINTX(MF),Y(MF):P0KE 

1 98,0:WAIT1 98,1 :POKE 198,0 
3270 CP = 1:RETURN 
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3300 PRINT "HICANNOT MAKE A 
MOVE":FORF = 1 TO1500:NEXT 
3310 PRINT "□fDODDDODDD 

DDDnnnnnn:CP=i: return 



VUi 



3000 COLOR1:LINE (0,182) -(255,191), 

PSET,BF:A$ = "COMPUTERS MOVE": 

DRAW "S8C3BM66,182":G0SUB 9300: 

NF = 1:MX = 0:FOR X = 1 TO 8:F0R Y = 1 

TO 8 
3010 IF B(X,Y)<>0 THEN 3070 
3020 FOR F = 1 T0 8:XP = X:YP = Y: 

DX = D(F,1):DY = D(F,2):RF = 
3030XP = XP + DY:YP = YP+DX:IFXP = 

OR XP = 9 OR YP = OR YP = 9 THEN 

3060 
3040 IF B(XP,YP) = 1 THEN RF = 1:GOTO 

3030 
3050 IF B(XP,YP) = 2 AND RF=1 

THEN N(NF) = F:X(MF) = X: 

Y(NF) = Y:NF = NF + 1:F = 9 
3060 NEXT F 
3070 NEXT Y,X:NF = NF-1 



3075 IF NF = 0THEN 3300 

3080 FOR F = 1 TO NF:X = X(F):Y=Y 

(F):DX = D(N(F),1):DY = D(N(F),2): 

CF=0 
3090X = X + DY:Y = Y+DX:IFB(X,Y) = 1 

THEN CF = CF + 1:GOTO 3090 
3100 IF CF>MX THEN MX = CF:MF = F (( 
3110 NEXT F 
3180 FOR F = 1 TO 8:X = X(MF):Y = Y 

(MF):DX = D(F,1):DY = D(F,2) 
3190X = X+DY:Y=Y + DX 
3195IFX<1 ORX>8 0RY<1 ORY>8 

THEN 3260 
3200 IF B(X,Y) = 1 THEN 3190 
3210 IF B(X,Y)=2 THEN 3230 
3220 IF B(X,Y) = THEN 3260 
3230X = X(MF):Y = Y(MF) 
3235 B(X,Y)=2:X = X + DY:Y = Y + DX 
3240 IF B(X ? Y) = 2 THEN 3260 
3250 GOTO 3235 
3260 NEXT F 
3265 DRAW "S16;C2;BM1 18,1 50" + NU$ 

(X(MF)) + NU$(Y(MF)) + "S8" 
3270 CP = 1:RETURN 
3300 COLOR1 : LINE(0,1 82) - (255,1 91 ), 

PSET,BF:A$ = "I CANNOT MOVE": DRAW 

"S8C4BM66,182":GOSUB9300:FORF = 1 

TO50:NEXT:CP = 1:RETURN 

The number of squares in a row is set to 
one, and the maximum number of pieces 
found in a row is set to zero in Line 3000. 
Two loops — with control variables X and Y — 
are initiated. These hunt through the board 
for empty spaces. It is this section of program 
which is really time-consuming. As the num- 
ber of empty squares decreases as the game 
progresses, so the time taken for the 
computer's move also decreases. 

Line 3010 checks to see if the square is 
empty. If it isn't, then the computer jumps to 
the NEXT statements in Line 3070. Lines 3020 
to 3060 check to see if the square is at the end 
of a row which the computer can take. XP and 
YP are used as before. DX and DY represent the 
direction array D() contents and save quite a 
lot of space. 

Line 3030 checks to see if the square to be 
tested lies on the board. If it doesn't, the next 
direction is tested. If the square tested is a 
player's square then the routine jumps back to 
Line 3030 to check if the next square is 
occupied by the player. 

In Line 3050 the board is checked to see if 
it is occupied by the computer. If it is and a 
row has been found, the start positions are 
recorded in X() and Y(), the direction number 
being stored in N(), The counter to indicate 
the number of coordinates found is also 
increased. 

Only the first row is stored, to ensure 




ensure that the search takes as little time as 
possible. 

Lines 3080 to 31 10 find which move gives 
the longest score in a straight line. A loop 
from one to N F (number of squares found) is 
set up. X and Y are equated with X( F) and Y(F) . 
The direction coordinates, DX and DY, are set 
to the directions indicated by N(F). CF, a 
temporary count is zeroed on each execution 
of the loop. 

Line 3090 checks to see if the piece being 
tested is a player's piece. If it is, then CF is 
increased and the next square in that direction 
tested. Line 3100 tests to see if the number 
found (CF) is greater than the previous max- 
imum (MX). If it is, then MX is set to equal CF, 
and MF, the coordinates of the 'best' piece set 
to the loop index F. 

The move routine is carried out by Lines 
3180 to 3260. Lines 3180 starts a loop from 
one to eight. This is done so that rows in all 
directions can be found. 

X, Y, DX and DY are set as before, and in 
Line 3195, X and Y are tested to ensure they 
are still on the board. If they are not, the 
program jumps to the NEXT at Line 3260. 

Line 3200 checks to see if the player 
occupies this square. If he does, the routine 
jumps to try the next square in the line. At 
this point no squares are altered, the routine is 
only testing. 

If the row ends in a computer occupied 
square, X and Y are reset and Lines 3235 to 
3250 alter all the squares in the row. If an 
empty square is found, the next direction is 
tried. 

Once the routine has decided on the square 
it wishes to move into, Line 3265 PRINTs the 
coordinates and waits for a key to be pressed 
(specifically, < ENTER > on the Spectrum). 
Line 3270 sets the CP flag to one for the 
player's turn, then RETURNs to the main loop. 



1007 



32 



5 PROGRAMMING] 32 



END OF GAME 



4000 IF PS >CS THEN GOTO 5000 

4010 IF PS = CS THEN GOTO 6000 

4020 PRINT AT 17,0; INK 2;"THAT WAS EASY!' 

4030 PRINT "DO YOU WANT ANOTHER 

GAME (TOR 'N')" 
4040 LET A$ = INKEY$: IF A$ <> "Y" AND 

A$o [ 'N" THEN GOTO 4040 
4050 IF A$ = "Y" THEN RUN 
4060 STOP 
5000 PRINT AT 17,0; INK 2;"YOU WERE 

LUCKY!" 
5010 GOTO 4030 
6000 PRINT AT 17,0; INK 2;"WE DREW,I 

NEED MORE PRACTICE": GOTO 4030 



4000IFPS>CSTHEN5000 

4010 IFPS = CSTHEN6000 

4020 PRINT"rSHTHATWAS EASY!" 

4030 PRINT'S] DO YOU WANT ANOTHER 

GAME(T OR 'N')" 
4040 GETA$:IFA$o"Y"ANDA$<> 

"N"THEN4040 
4050IFA$ = "Y"THENRUN 
4060 END 

5000 PRINP'HJIYOU WERE LUCKY!" 
5010 GOTO4030 
6000 PRINT"H!1WE DREW,I NEED MORE 

PRACTICE":GOTO4030 



ma 



4000 IF PS>CS THEN 5000 

4010 IF PS = CS THEN 6000 

401 5 A$ = "THAT WAS EASY" 

4020 COLOR1 : LINE (0,1 82) - (255,1 91 ), 

PSET,BF:DRAW "S8C2BM70,182": 

GOSUB 9300 
4025 FOR F = 1 TO1500:NEXTF 
4030 COLOR1:UNE (0,182) -(255,1 91), 

PSET,BF:A$ = " DO YOU WANT ANOTHER 

GAME":DRAW"C3BM0,182": 

GOSUB 9300 



4040 A$ = INKEY$:IF A$o"Y" AND 

A$o"N" THEN 4040 
4050 IF A$ = "Y" THEN RUN 
4060 END 

5000 A$ = "YOU WERE LUCKY" 
5010 GOTO 4020 
6000 A$ = " IT IS A DRAW";GOTO 4020 

The end of game routine is located from Line 
4000 onwards. Lines 4000 itself checks to see 
if the player has won by comparing PS and CS. 
The program jumps to Line 5000 to PRINT 
the win message. Line 4010 tests for a draw, 
and the message routine is located at Line 
6000. If the computer has won, the program 
reaches Line 4020 and displays a message to 
rub salt in the wound! 

The remaining lines are simply an 'another 
go?' option. 



El 



Again, the Acorn program has been written 
differently from the others, so the routines are 
a little different from those described earlier. 



YOUR MOVE 



440 DEFPROChumanmove 

450"FX15,1 

460 COLOUR 2:C0L0UR 128:INPUTTAB 

(0,25)SPC(80)TAB(0,25),"What 

is your move?'""(row,col) ", y%,x% 
470 IF x% = AND y% = THEN 

eg%=1:ENDPROC 
475 IF y% = 9 THEN cp% = 2:ENDPR0C 
480 IF x%<1 OR x%>8 OR y%<1 OR 

y%>8 THEN VDU7:GOTO 450 
490IFb%(x%,y%)o0THEN 

PROCbadmove(1):GOTO450 
500 nf% = 0:FOR f% = 1 TO 8: cf% = 0:IF 

x% + d%(f%,1 ) = OR x% + d%(f%,1 ) = 9 

THEN 530 
51 IF y% + d%{f%,2) = OR 

y% + d%(f%,2) = 9 THEN 530 
520 IF b%(x% + d%(f%/l},y% + 

d%(f%,2) ) = 2 TH EN cf% = 1 : nf% = 1 



530 c%( 



= 0:IFcf% = 1 THEN 




c%(f%) = f% 
540 NEXT f% 
550IFnf%<>1 THENPROCbad 

move(2):GOTO450 
560 rf% = 0:FOR q% = 1 TO 8:IF c%(q%) = 

THEN 630 
570xp% = x%:LETyp% = y% 
580xp% = xp% + d%(q%,1): 

yp% = yp% + d%(q%,2) 
590 IF xp% = OR xp% = 9 OR yp% = OR 

yp% = 9 THEN c%(q%) = 0:GOTO 630 
600 IF b%(xp%,yp%) = 2 THEN 580 
610 IF b%(xp%,yp%) = 1 THEN rf% = 1:G0T0 

630 
620 IF b%(xp%,yp%) =0 THEN c%(q%) =0 
630 NEXT q% 
640 IF rf%<>1 THEN PROCbadmove 

(3):G0T0 450 
650 FOR q% = 1 TO 8:IF c%(q%) = THEN 

710 
660xp% = x% + d%(q%,1): 

yp% = y% + d%(q%,2) 
670 IF b%(xp%,yp%) = 1 THEN 710 
680b%(xp%,yp%) = 1 
690xp% = xp% + d%(q%,1): 

yp% = yp% + d%(q%,2) 
700 GOTO 670 
710 NEXT q% 

720 b%(x%,y%) = 1 : cp% = 2 
730 PROCdisplayboard 
740 ENDPROC 

The player enters a move in response to the 
prompt. Line 470 checks if the player wants 
to stop the game, and Line 480 checks if the 
input is outside the correct range. 

If the square is already occupied, Line 490 
calls PROCbadmove. Lines 500 to 550 check if 
the move is into a square that is next to one of 
the computer's pieces. If it isn't, then Line 
550 calls PROCbadmove. Lines 560 to 640 
check if the move is into a position that flanks 
a row. If it doesn't, then Line 640 calls 
PROCbadmove once again. Each of these lines 
passes a different parameter value to 
PROCbadmove which determines the message 
that appears on screen. 

The final section of the PROCedure sets the 
arrays ready for PROCdisplay board to display 
the new status of the board — pieces will 
always change status after a move has been 
made. 



COMPUTER'S MOVE 



750 DEFPROCcomputermove 

760 COLOUR 3: PRINT TAB(0,25);"Thinking 

. . ."SPC 40 
770nf% = 1:mx% = 
780 FOR x% = 1 TO 8 
790FORy% = 1 TO 8 
800 IF b%(x%,y%) <> THEN 890 
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810 FOR f% = 1 TO 8 

820 xp% = x%: yp% = y% 

830 dx% = d%(f%,1): dy% = d%(f%,2): 

rf% = 
840 xp% = xp% + dv%: yp% = VP% + dx% 
850 I F xp% = OR xp% = 9 OR yp% = OR 

yp% = 9 THEN 880 
860 IF b%(xp%,yp%) = 1 THEN rf% = 1:GOTO 

840 
870 IF b%(xp%,yp%) = 2 AND rf% = 1 THEN 

n%(nf%) = f%: x%{nf%) = x%: 

y%(nf%) = y%: nf% = nf% + 1 :LET f% = 9 
880NEXTf% 
890 NEXTy% 

900 N EXT x%:LET nP/o = nf% - 1 
905 IF nf% = THEN 1205 
910 FOR f% = 1 TO nf% 
920x% = x%(f%) 
930y%=y%(f%) 
940dx%=d%(n%(f%),1) 
950 dy% = d%(n%(f%),2): cf% = 
960 REPEAT 

970 x% = x% + dy%: y% = y% + dx% 
980 IF b%(x%,y%) = 1 THEN cf % = cf% + 1 
990 UNTIL b%(x%,y%)<>1 
1 000 I F cf% > mx% THEN mx% = cf%: 

mf% = f% 
1010 NEXT f% 
1020 FOR f% = 1 TO 8 
1030 x%=x%(mf%): y% = y%{mf%) 
1040 dx%=d%{f%,1): dy% = d%(f%,2) 
1050x% = x% + dy%: 

y% = y% + dx% 

1060IFx%<1 OR x%>8 0Ry%<1 OR 

y%> 8 THEN 1160 
1070!Fb%(x%,y%) = 1 

THEN 1050 
1080IFb%(x%,y%) = 2 

THEN 1100 
1090IFb%(x%,y%) = 

THEN 1160 
1 100 x% = x%(mf%):LET y% = y%(mf%) 
1110 REPEAT 
1120b%(x%,y%} = 2 
1130x% = x% + dy% 
1140y% = y%+dx% 
1150 UNTIL b%(x%,y%)= 2 
1160 NEXT f% 
1170 PRINT TAB{0,25);"My move isD"; 

y%(mP/o);",";x%(mf%):*FX15 
1180a%=INKEY(1000) 
1190cp% = 1 
1200ENDPROC 
1205 PRINT"! CANNOT MAKE A MOVE": 

FOR F = 1 TO 2000: NEXT:ENDPROC 

PROCcomputer move follows the same gen- 
eral structure as PROChuman's move, but 
must also choose a move for the computer. 

In Line 780 the number of squares in a row 
is set to 1, and the maximum number of pieces 
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found in a row is set to zero. This is the 
computer's start point for its explorations for 
a good move. Two loops are initiated in Lines 
780 and 790. These hunt through the board 
for empty spaces. 

It is this section of program which is really 
time-consuming. As the number of empty 
squares decreases as the game progresses, so 
the time taken for the computer's move also 
decreases. The computer is searching for 
empty squares which are at the-end of rows of 
pieces. 

Lines 1000 to 1160 look for the best 
possible position for the new piece. Line 1 170 
displays the move. You are given ten seconds 
to look at the move before it is plotted. The 
wait can be overridden by tapping any key. 



BAD MOVES 



1210DEFPROCbadmove(t%) 

1220 COLOUR 1:VDU7:PRINTTAB(0,25); 

1230 IF t% = 1 THEN PRINT "You cannot move 

ontoan occupied square." 
1240 IF t% = 2 THEN PRINT "Your move isn't 

nextto one of my pieces." 
1250 IF t% = 3 THEN PRINT "Your move 

doesn't □ □ □ flank a row. ODD" 
1260 'FX1 5,1 



1270a% = INKEY(500} 

1280 PRINT TAB(0,25);SPC(40) 

1290ENDPROC 

PROCbad move contains three error messages. 
Parameters are passed from PROChuman's 
move if bad moves are found. t% is set 
according to the nature of the bad moves, and 
Lines 1230 and 1250 display the message. 



THE END 



1300DEFPROCgameover 

1310 COLOUR 3:PRINTTAB(0,25); 

SPC(80);TAB(0,25); 
1320 IF ps%>cs% THEN PRINT"You were 

lucky!" 
1330 IF ps%<cs% THEN PRINT'That was 

easy!" 
1340 IF ps% = cs% THEN PRINT'lt was a 

draw!" 
1350 REPEAT 
1360 COLOUR 2:PRINTTAB(0,30); 

"Play again (Y/N) ?" 
1370x$ = GET$ 

1380 UNTIL INSTR("yYnN",x$)>0 
1390 IF x$ = "y" OR x$ = "Y"THEN RUN 

ELSE CLS:C0L0UR 3:END 
1400 ENDPROC 
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LET'S M AKI 
A DATE 



Plan out all the important events in 
the coming year and keep a note of 
special dates such as birthdays with 
this comprehensive calendar and 
diary program. 



Are you the sort of person who always forgets 
your mother's birthday or only remembers a 
dental appointment a day too late? And are 
you surprised when a bill drops through the 
letterbox even though you know it appears 
regularly every quarter? 

The program that accompanies these art- 
icles will keep track of all these things for you. 
It is easy to use and much more fun than 
writing entries into a diary, so you'll have no 
excuse to miss an appointment or forget to 
pay the rates ever again. If you have a printer 
you can make a hard copy of the diary to carry 
around with you so you can check what's 
coming even when you are away from the 
computer. 



AUTOMATIC CALENDAR 



The program really does two things, printing 
out either a calendar or a diary. The simplest 
option prints out a calendar for any month in 
any year between 1753 and 29,999 (or 3299 on 
the Acorns). The calendar is displayed in the 
usual way with the days of the week along the 
top and the numbers of the days underneath. 
The program automatically takes account of 
leap years, and the date of Easter Sunday is 
printed out underneath the month in which it 
falls. 

As well as looking at the single monthly 
calendar you can also choose to print out a 
calendar for a whole year. This is useful if you 
have a printer as you can keep the calendar by 
your desk or pin it on the wall, and there is 
plenty of room on the printout to make notes 
by any of the dates. 



ELECTRONIC DIARY 



The diary option is the one that lets you keep 
track of what's happening. The entries are 
made under four separate headings — Finance, 
Appointments, Celebrations and Holidays — 
and each is highlighted in a different colour so 
when you use the diary it is easy to pick out a 
particular type of entry. 

Entering the information is very straight- 
forward, and this program has an advantage 
over an ordinary diary in that it will automati- 
cally carry forward regular events such as bills 
or birthdays, filling them in on the correct 
date for all following months and years. For 




example, when you make an entry under 
Finance you are first asked whether it is 
monthly, quarterly, annual or just a single 
one-off event. Say you're entering details of 
your monthly payments. You would type M 
for monthly then enter the name RENT 
followed by the date you first paid. The word 
RENT will then appear on that date for every 
following month. 
The Celebrations option is for things such 



as birthdays and anniversaries 'so these are 
automatically taken as annual events. The 
Appointments and Holidays are all treated as 
single events. 

It doesn't matter in what order you enter 
the dates, the computer will sort through 
them all and group them together under the 
correct month. 

Once you've entered the data, it is best to 
save it straight away, using the SAVE option in 
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MONTHLY CALENDAR 



CALCULATING EASTER 



YEARLY CALENDAR 



FILLING IN THE DIARY 



ENTERING REGULAR EVENTS 



FINANCE, APPOINTMENTS, 

CELEBRATIONS AND HOLIDAYS 

HOW TO USE THE DIARY 

ENTERING THE FIRST PART OF 

THE PROGRAM 





the menu, in case any disasters happen with 
the program. The data is stored in a separate 
file called DIARY and can be loaded in, 
amended, updated or deleted at any time. So 
you can easily keep your diary up to date. 



USING THE DIARY 



Once you've entered some data into the 
program you can see how the monthly diary 
works. Enter the number of the month and 



the year and you'll see all the entries for that 
month, including any regular finances or 
celebrations carried forward from earlier 
months or years. The entries are grouped 
together in the different categories, each 
highlighted in the same colours as those used 
for the monthly calendar. 

The program waits for you to press a key 
before each group is printed on the screen. 
This is in case there are too many entries to fit 
on the screen in one go, and so it stops early 
entries being scrolled off the screen before 
you've had a chance to read them. If you have 
a printer attached to the computer you can 
choose to have a printout of all the entries. 

If you now go back to the calendar option 
and print out a calendar for the same month, 
you can highlight the dates corresponding to 
the diary entries by pressing F, A, C or H for 
each of the four categories. Again, they are 
colour-coded so you know which category the 
dates refer to, although you need the diary to 
see the details of each entry. 

The best way to use the program depends 
on exactly what you want to find out. If you 
want to see what's coming in a particular 
month then select the month diary. If, in- 
stead, you want to scan through a year to see, 
for example, how many financial events to 
plan for, then the quickest way is to select the 
monthly calendar for the first month, high- 
light the financial dates by pressing F, move 
on to the next month and so on for the rest of 
the year. Once you use the program you'll see 
just how versatile it is. 



ENTERING THE PROGRAM 



The program is rather long and so has been 
split into three parts. The first part given here 
sets up several of the routines and prints out 
the main menu. The remainder of the 
program follows later and there will also be 
more detailed instructions on how to use it. 
There are also changes to make to the 
Acorn program so it can run on the Electron. 
Don't forget to SAVE this part of the program 
so you can add the extra routines next time. 



10 DATA 2,4,1 ,3,7,31 ,28,31 ,30,31 ,30,31 , 

31,30,31,30,31 



20 DATA "MNLY","QRLY","ANLY","SNGL" 

30 BORDER 0: PAPER 0: INK 7: CLS 

40 CLS 

50 CLEAR: LET P = 2 

60 LET !$ = "□□□□□□□□□ 

DDDDDDDDDDDDDDD 

DDDDDDDD" 
70 DIM 0$(1,31): DIM Q(4): DIM 

L$(4,150,31):DIMT$(4,12): DIM C(4): 

DIM Z(5) 
80 FOR n = 1 TO 5: READ Z(n): NEXT n 
90 DIM D(12): FOR n = 1 TO 12: READ D(n): 

NEXTn 
100 LET M$ = "January □ □ February □ March 

□ □□□ApriinnnnMaynnQ 

□ □ D JuneD □ □ □ DJulyD D □ 

□ D August D D DSeptemberOctobern □ 
November □ December □" 

110 LET s$ = "SunMonTueWedThuFriSat" 
120 DIM P$(4,4): FOR n = 1 TO 4: READ 

P$(n):NEXTn 
130 LET T$(1) = "Finances": LET T$(2) = 

"Appointments": LET T$(3) = 

"Celebrations": LET T$(4) = "Holidays" 
1 40 DEF FN M(A) = ((A/K2 - INT (A/K2))*K2) 
150 LET SV = 0: LET MO = 0: LET DA = 
160 PRINT "HAVE YOU ANY EXISTING 

LISTINGS Y/N?": LET K$ = "yn" 
170 CLS : GOSUB 990: CLS : LET P = 2 
1 80 IF C = 1 THEN GOSUB 760 
190 IF C = 2 THEN GOSUB 1760 
200 IF C = 3 THEN GOSUB 2240 
210 IF C>3 AND C<8 THEN LET 

KB = C-3: GOSUB 1140: LET SV=1 
220 IF C = 8 THEN GOSUB 1610: LET 

SV = 
230 IF C = 9 AND SV=1 THEN PRINT: 

PRINT "YOU HAVE NOT SAVED ANY 

CHANGES'""ARE YOU SURE YOU WANT 

TO QUIT": LET K$ = "yn": GOSUB 1480: 

IFKB = 2THEN LETC = 
240 IF C<>9 THEN GOTO 170 
250 CLS : PRINT "GOODBYE" 
260 STOP 

270LETMX = 0:LETA2 = 
280 LET K2 = 4: IF FN M(YR) = THEN LET 

A2 = 1 
290 LET K2 = 100: IF FN M(YR) = THEN 

LETA2 = 
300 LET K2 = 400: IF FN M(YR)=0THEN 

LET A2 = 1 
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310 IF KB = 2 THEN LET MX = A2 + 28 

320 I F KB = THEN LET KB = 1 

330 IF KB < > 2 THEN LET MX = D(KB) 

340 LET KB = MX: RETURN 

350 LET RS = 

360 IF DA = DE AND MO = ME AND KB = 5 

THEN LET KB = 5: RETURN 
370 IF KB = 5 THEN LET KB = 7: RETURN 
380LETRS=Z(KB) 
390 IF Q(KB) =0 THEN GOTO 450 
400LETM4 = Q(KB) 
410 FOR 1 = 1 T0M4 
420 LET K$ = L$(KB,1): LETK2 = 3: GOSUB 

470: IF VAL K$(2 TO 3) <> DA THEN LET 

K2=0 
430 IF K2 = 1 THEN LET KB = 7: RETURN 
440 NEXT I 
450LET KB = RS 
460 RETURN 

470IFKB<>1 THEN GOTO 520 
480 IF VAL K$(1) = 3 THEN GOTO 540 
490 IF VAL K$(1)=4THEN GOTO 530 
500 IF VAL K$(1) = 1 AND VAL K${2 TO 

3) = DA THEN LET K2 = 1: RETURN 
510 IF VAL K$(1) = 2 AND FN M((((YR- 



VAL K$(6 TO 9))*12) + (12 -VAL K$(4 TO 

5)) + MO)) = 0THENLETK2 = 1: 

RETURN 
520 IF KB = 3 THEN GOTO 540 
530 IF VAL K$(2 TO 3) = DA AND VAL K$(4 

TO 5) = MO AND VAL K$(6 TO 9) = YR 

THEN LET K2 = 1 : RETURN 
535 LET K2 = 0: RETURN 
540 IF VAL K$(4 TO 5) = MO THEN LET 

K2 = 1: RETURN 
550 LET K2 = 0: RETURN 
560 LET Y2 = 0: LET D2 = 0: LET M2 = 
570 LET Y2=YR — 1 
580 LET D2 = Y2'365 + INT (Y2/4) - INT 

(Y2/100) + !NT(Y2/400) 
590 IF MO = 1 THEN GOTO 630 
600FORm = 1 TOMO-1 
610 LET KB = m: GOSUB 270: LET 

D2 = D2 + KB 
620 NEXT m 

630 LET KB = D2 + DA: RETURN 
640 LET MS = MO: LET DS = DA 
650 LET DA = 1: LET MO = 3: GOSUB 560: 

LET K2 = 7: LETDE = FN M(KB) 
660 LET N2 = (INT (YR/100)) — 1 6: LET 




C2 = 3 + N2-INT((N2 + 1)/3)-INT 

(N2/4) 
670 LET K2 = 1 9: LET N2 = FN M(YR + 1 ): 

LET K2 = 30: LET D2 = FN 

M(C2 + (N2*19)) 
680IFN2>11 AND D2< 27 THEN LET 

D2 = D2-1: GOTO 700 
690IFN2<=11 AND D2 = 29 THEN LET 

D2 = 28 
700 LET D2 = D2 + 21 
710 LET D2 = D2 + 1: LET K2 = 7: IF INT (FN 

M(D2+DE) + 0.1)<>1 THEN 

GOTO 710 
720 IF D2< 32 THEN LET ME = 3 
730 IF D2> =32 THEN LET D2 = D2— 31: 

LET ME = 4 
740 LET DE = INT (D2 + 0.1): LET MO = MS: 

LETDA=DS 
750 RETURN 

760 GOSUB 2510: GOSUB 2480 
770 CLS 
780 LET MK = 5 
790 CLS 

800 PRINT AT 17,0;" < BREAK > returns to menu" 
81 PRINT "z,x keys alter month. □ " 
820 PRINT INK 7;T$(1 ); INK 2; 

"DFDD"; INK 7;T$(2); INK4;"DA" 
830 PRINT INK 7;T$(3); INK 1; 

"□CD □"; INK 7;T$(4); INK 3;"nH" 
840 PRINT AT 0,0; 
850 GOSUB 2570: IF MK<5 THEN PRINT 

T$(MK) 
860 PRINT #P: LET KB = 1 : GOSUB 1920 
870 IF P = 3 THEN PRINT #P 
880 PRINT #P: LETT2 = MK: LET S2 = 1 : 

GOSUB 2020 
890 LET P = 2 
900 LET K$ = "zxfachD": GOSUB 1480: LET 

A=KB 
910 IF A = 1 THEN LET MO = MO -1 
920 IF A = 2 THEN LET MO = MO + 1 
930 IF MO = 13 THEN LET MO = 1: LET 

YR = YR + 1: GOSUB 640 
940 IF MO = 0THEN LET MO = 12: LET 

YR = YR-1: GOSUB 640 
950 IF A>2 AND A<7 THEN LETMK = A-2 
960 IF A<3 THEN LET MK=5 
970 IF A<>7 THEN GOTO 790 
980 RETURN 
990 CLS : PRINT PAPER 5; INK 1; AT 0,7; 

"DCALENDAR & DIARYD"; PAPER 6; 

INK 0;AT 2,1 0;"D MAIN MENU □" 
1000 FOR Z = 1 TO 19: PRINT PAPER 1; 

"DDDDDDDDnnDDDD 

DDDDDDDDDDDDDDD 

□ DD": NEXT Z: PRINT AT 3,0 
1010 PAPER 1: INK 7 
1020 PRINT AT 4,1 ;"1 Look at monthly 

calendar" 
1030 PRINT AT 6,1;"2 Look at yearly 

calendar" 
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1040 PRINT AT 8,1; "3 Look at month 

diary" 
1050 PRINT AT 1 0,1 ;"4 Review/ 

Edit Finance" 
1060 PRINT AT 12,1;"5 Review/ 

Edit Appointments" 
1070 PRINT AT 14,1;"6 Review/ 

Edit Celebrations" 
1080 PRINT AT 1 6,1 ;"7 Review/ 

Edit Holidays" 

1 090 PRINT AT 1 8,1 ;"8 Save the lists" 

1100 PRINT AT 20,1; "9 Leave the 

program" 
1110 PRINT TAB 10;"please choose" 

10 PRINT"[J':DIM DL$(3,100):POKE 

53280,1 :P0KE 53281,1 
20 M1$ = "JANUARYDDFEBRUARYn 

MARCH □ □ □ DAPRILD □ □ DMAY 

DDDDD DJUNED DDDD" 
30 M2$ = "JULYD D □ □ □ AUGUST 

□ □ □SEPTEMBEROCTOBERD □ 

NOVEMBER □ DECEMBER D" 
40MN$ = M1$ + M2$ 
50 ML$ = "31 2831 3031 3031 31 3031 3031" 
60 DN$ = "SUNMONTUEWEDTHUFRISAT" 
70 ST$(0) = "FINANCIAL":ST$(1 ) = 

"APPOINTMENTS" 
80 ST$(2) = "CELEBRATI0NS":ST$(3) = 

"HOLIDAYS" 
90 CD$(1 ) = "MNLY":CD$(2) = "QRLY": 

CD$(3) = "ANLY":CD$(4) = "SNGL" 
100CL(0) = 28:CL(1) = 31:CL(2} = 156:CL(3) 

= 144:CL(4) = 30:WH=5 
110Z=0:DR = 
120 GOSUB 2070 
130 PP% = 
140 POKE 53280,6:POKE 53281, 13: PRINT 

"□"TAB(9)"H [5 3D CALENDAR & 

PLANNERDHB" 

i50PRiNTTAB(i0)"aaaLinnnn 
DDMENunnnnnnnapi" 

160 PRlNnAB(12)"MHHHaii 

1 YEAR CALENDAR" 
170 PRINTTAB(12)"HB|2nSEE DIARY" 
180 PRINTTAB(12)"MH3L1ALTER DIARY" 
190 PRINTTAB(12)"HH4D LEAVE 

PROGRAM" 
200 PRINTTAB(9)"HaHa3Sa 

A E3 B □ □ □ □ ENTER CHOICE 

□□DDH" 

210 PRINTTAB(8) u aCSB □ □ □ □ □ 

D?D?D?D?D?D?DDDDD 

SI" 

220 GET A$:IFA$ = "" GOTO 220 
230A = VAL{A$) 

240 IF A<1 OR A>4 GOTO 220 
250 POKE 53280,1 :ON A GOSUB 

290,290,1100,270 
260 GOTO 130 




270 IF DR = 1 THEN GOSUB 2170 
275 INPUT "QHPRESS (Q)UIT OR 

(M)ENU";RS$:IFRS$ = "M"THEN 

RETURN 
280 PRINT "□□":P0KE 53280, 

14:POKE 53281,6: END 
290 INPUT"QH||aENTER YEAR (1753 

TO 29999)";Y 
300 I F Y < 1 753 R Y > 29999 GOTO 290 
310 YY=Y:Y = Y— 1 
320 LY = 

330 if YY/4 = INT(YY/4) THEN LY = 1 
340 I F YY/1 00 = INT(YY/1 00) TH EN LY = 
350 I F YY/400 = INT(YY/400) THEN LY = 1 
360ND = 365 , Y + INT(Y/4)-INT 

(Y/100) + INT(Y/400) + 1 
370ED = ND + 59 + LY 
380ND = ND-INT(ND/7)"7 
390 ED = ED — INT(ED/7)*7 
400N = INT(YY/100)-16 
410C = 3 + N-INT((N + 1)/3)-INT(N/4) 
420N=YY + 1-INT{(YY + 1)/19)* 

19:IFN = 0THENN = 19 
430 D = C + 19*N-INT((C + 19'N)/30)*30 
440IFN>11 AND D>27THEN D = D + 1 
450 IF N< =11 AND D = 29 THEN D = 28 
460D = D + 21 
470D = D + 1 

480X=D + ED-INT((D + ED)/7)*7 
490 IF X<>1 THEN 470 
500EM = 3:IFD>31 THEN 



D = D-31:EM=4 
510ED = D 

520 IF A=1 THEN GOSUB 870:RETURN 
530INPUT"@HHMIIWHICH 

MONTH";A$:M = VAL(A$):IFM<1 OR 

M>12 GOTO 530 
540 GOSUB 550:RETURN 
550C = 5:Z = 0:PP = 
560 PRINT"D";CHR$(WH) 
570 IF Z = THEN GOSUB 650 
580 IF Z = 1 THEN GOSUB 1870 

590 PRINT"HHHM":GOSUB 2280:IF 
K=8THENK = 0:GOTO560 

600 GOSUB 980 

610 ON KGOSUB1 600,1 600,1 600, 

1600,1830,1830,1850,2270 
620 IF K=9 THEN RETURN 
630 IF M>0 AND M<13GOTO 560 
640 RETURN 
650 T=0 
660 ML = VAL(MID${ML$,2-M-1,2)): 

IFM = 2THENML = ML + LY 
670 IF M = 1 THEN T=0:GOTO 720 
6B0 FOR N = 1 TO M-1 
690 T=T + VAL(MID$(ML$,2*N-1,2)) 
700 NEXT N 

710 IF M>2 THEN T=T+LY 
720 SD=T + ND-INT((T+ND)/7)"7 
730PRINT"naM"TAB(l1) 

"a"MID$(MN$,M*9-8,9); 

"D";YY;"H3":PRINTTAB(5); 
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740FORN = 1 T0 7:PRINT li a" 

MID$(DN$,3*N - 2,3);"H D □ ";: 

NEXTN 
750 PRINT" 3|":PRINTTAB 

(4'SD + 5); 
760X = SD 

770 FOR CD = 1 TO ML 
780 GOSUB 1600 
790D$ = STR$(CD) + "D" 
800IFLEN(D$)<4THEND$ = D$ + 

CHR$(32) 
810 PR1NTCHR$(CC);D$;:X = X + 1 
820 IF X>6 THEN PRINT: 

PRINTTAB(5);:X = 
830 NEXT CD 
840 IF M = EM THEN PRINT: 

PRINTTAB(7)"UHEASTER 

SUNDAYD";ED;"D";MID$(MN$, 

M*9-8,9) 
850 PRINT 
860 RETURN 
870 C = 5 

880PRiNT"QHIiaanonnnDO 

YOU WANT A PRINTOUT 

P)?DDDD" 
890GETA$:IFA$ = "" GOTO 890 
900 IF A$ = "Y" THEN GOSUB 2270 
910 FOR M = 1 TO 12 
920 GOSUB 650 
930 PRINT 
940 IF PP = THEN GETA$:IF A$ = "" GOTO 

940 
950 NEXT M 
960 GOSUB 2280 
970 RETURN 

980 PRINT Ufelfej Ull dil F|l" 

INANCE,3 3AJi ■PPOINTMENTS, 

dBHU«OLIOAYS" 

990 PRINTTAB(7)"Ji.pCU" 

ELEBRATIONS.aNBEXT, 

SLHAST" 
1000 PRINTTAB{11)"aS"WAP, 

jaPBRINT^MHENU" 
1010 GET A$:IF A$ = "" GOTO 1010 
1020 N = 
1030N = N + 1 
1040 IF M!D$("FACHNLSPM",N,1) 

= A$ GOTO 1070 
1050 IF N<9 GOTO 1030 
1060 C = 0:GOTO1 010 
1070 K = N:C = N-1:1FC<4 THEN CP = C 
1080IFZ = 1 AND K<5 GOTO 1010 
1090 RETURN 



10MODE7 

20 *FX229,1 

22 *OPT2,1 

24 *OPT1,1 

30 *FX4,1 

40 DIMList$(3,150)Jype$(3), code%(4) 




50 DayMonth$ = "31 2831 3031 3031 31 
30313031" 

60 MonthName$ = "JanuaryDD 
February □ March D □ □ D April 
D D □ DMayD ODD D D June 

nnnnnjuiynnnnn 

August □ □ □ SeptemberOctober 

□ D November □ December □" 
70 DayName$ = "SunMonTueWedThu 

FriSat" 
80Pay$ = "MnlyQrlyAnlySngl" 
90 Type$(0) = "Finances" :Type$(1) 

= "Appointments":Type$(2) 

= "Celebrations":Type$(3) 

— "Holidays" 
100 F$ = CHR$132 + CHR$157 + CHR$ 

135 + CHR$141 
1 1 SaveFlag% = 0: P% = 0: Month% 

= 0:Day%=0 
120 PRlNT'Have you existing lists (Y/N)?" 
130 REPEAT 

140 MODE7:C% = FNmenu:MODE7 
150 IFC% = 1 PROCscrM 
160 IF C% = 2 PROCannual 
170 IF C% = 3 PROCdiary 
180 IF C%>3 AND C%<8 

PROClist(C%- 4) :SaveFlag% = 1 
190 IF C% = 8 PROCsave:SaveFlag% =0 



200 IF C% = 9 AND SaveFlag% = 1 

PRINT""You have not saved any 

alterati ons' ' : P R I NT" Are you sure you wish to 

leave (Y/N) ":IF FNget("YN") = 2 C% = 
210 UNTIL C% = 9 
220 "FX4,0 
230 *FX229 

240 CLS:PRINTTAB(1 2,1 2)"GOODBYE" 
250 END 

260 DEF FNmonthL(m%) 
270 LOCAL max%,a% 
280 I F Year%M0D4 = a% = 1 
290IFYear%MOD100 = 0a% = 
300 I F Year%MOD400 = a% = 1 
31 I F m% = 2 max% = a% + 28 
320 IF m%< >2 max% = VAL{MID$ 

(DayMonth$,m%'2-1,2)) 
330 = max% 
340 DEF FNmarker(type%) 
350 LOCALa$,n%,flag%,max% 
360 IF P% = 2 =32 
370 IF type%= 5 AND Month% = Meast% 

AND Day% = Deast% =134 
380IFtype% = 5 =135 
390 max% = VAL(List${type%,0)) 
400 REPEAT 
410n% = n% + 1 
420a$ = List$(type%,n%) 
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19 {APPLICATIONS. 19 



430d% = ASC(MID$(a$,2,1)) 

440IFd%oDay%GOTO460 

450flag% = FNcheck(a$) 

460 UNTIL flag% = 1 OR n%> = max% 

470 IF flag%= 1 =135 

480 n% = 1 29 + ty pe%: I F n% = 1 32 = 1 33 

490 IF n% = 131 =132 

500 = n% 

510 DEF FNcheck(a$) 

520 LOCALt%,y%,m%,flag% 

530t%=ASC(MID$(a$,1,1)) 

540y% = ASC(MID$(a$,3,1)) 

550m% = y%AND&F 

560y% = (y%DIV16 + 17)'100 + ASC 

(MID$(aS,4,1)) 
570IFy%>Year% =0 
580 IF jt% = 1 AND Month%> =m%) OR 

(t% = 2AND (m%-Month%)MOD3 = 0) 

OR {t% = 3 AND m%=Month%) OR 

(t% = 4 AND m%= Month% AND 

y%=Year%)flag% = 1 
590 =flag% 
600 DEF FNdayNo 
610 LOCAL d%,m%,y% 
620 y%=Year%— 1 
630 d% = y%*365 + y%DIV4-y%DIV 

100 + y%DIV400 
640IFMonth% = 1 GOTO 680 
650FORm% = 1 TO Month%-1 
660 d% = d% + FNmonthL(m%) 
670 NEXT 
680 =d% + Day% 
690 DEF PROCeaster 
700 LOCALc%,n%,d% 
710 Mstore%= Month%:Dstore%= Day% 
720 Day% = 1:Month% = 3: Deast% 

= FNdayNo MOD7 
730 n% = (Year%DIV100) - 1 6:c% 

= 3 + n%-{n% + 1)DIV3 

-n%DIV4 
740 n% = (Year% + 1 ) MODI 9:d% = 

(c% + (n%'19))MOD30 
750 IF n%>11 AND d%>27 d% = 

d%-1 ELSE IF n%< =11 AND d%=29 

d% = 28 
760 d% = d% + 21 :REPEAT d%= 

d% + 1 :UNTIL (d% + Deast%) MOD7 = 1 
770 IF d%<32 Meast% = 3 ELSE 

d% = d%-31:Meast%=4 
780 Deast% = d%: Month% = Mstore%: 

Day% = Dstore% 
790 ENDPROC 
800 DEF PROCscrM 
810 LOCAL a,a$,t 
820 PROCmydate:PROCprinter 
830 FOR t = 19TO 24 
840 PRINTTAB(0,t)CHR$132 + CHR$ 

1 57 + CHR$1 35;:PRINTTAB(36,t) 

CHR$156; 
850 NEXT 
860VDU28,3,24,34,19 



870 PRINTTAB(0,0)"L)se Cursor arrows to alter 

month" 
880PRINT" < ESCAPE > to return to Menu" 
890 PRINT'Type$(0);"O D";Type$(1) 
900 PRINTType$(2);"D D";Type$(3); 
910 VDU26,28,0,1 8,39,0 
920marker%=5 
930 REPEAT 
940 CLS:*FX15 
950 PROCmyheader:PRINT: 

PROCprintdays(l) 
960 PRINT':PROCprintmonth(marker%,1 ) 
970P% = 0:VDU3 
980 a = FNget{CHR$1 36 + CH R$1 37 + 

"FACH" + CHR$27) 
990 IF a = 1 Month% = Month% - 1 
1000 IF a = 2 Month% = Month% + 1 
1010 IF Month% = 13:Month% = 1:Year 

% = Year% + 1 : PROCeaster 
1020 IF Month% = 0:Month%=12: 

Year%=Year%-1 :PROCeaster 
1030 IF a>2 AND a<7 marker% = a-3 
1 040 IF a < 3 marker% = 5 
1050 UNTIL a = 7 
1060 ENDPROC 
1070 DEF FNmenu 
1080 LOCAL n 
1090 FOR n = 1 TO 2 
1100 PRINTF$ + "INPUT :D" + CHR$ 

135 + "Calendar&DiaryDnn 

DD" + CHR$156 
1110 NEXT 
1120 PRINT 
1130 FOR n = 1 TO 2 



1140 PRINTSPC{9)F$ + "MenuDDn" 

+ CHRS156 
1150 NEXT 
1160 PRINT'"!" + CHR$131 + "Look at 

Monthly Calendar" 
1170 PRINT"2" + CHR$131+ "Look at Year 

Calendar" 
1 1 80 PRINT"3" + CHR$1 31 + "Look at Month 

Diary" 
1 1 90 PRINT"4" + CHR$1 31 + "Review/ 

Edit Finance" 
1200 PRINT"5" + CHR$1 31 + "Review/ 

Edit Appointments" 
1210 PRINT"6" + CHR$131 +"Review/ 

Edit Celebrations" 
1220 PRINT"7" + CHR$131 +"Review/ 

Edit Holidays" 
1230PRINT"8" + CHR$131 + 

"Save the lists" 
1 240 PRINT"9" + CHR$1 31 + "Leave the 

program" 
1250 PRINTTAB(18,18)"Please Choose D"; 
1260 =FNget("1 23456789") 

Txmmmmmmm 

10CLS 

20 CLEAR 5000 

30DIMU$(3,150),TY$(3),CO(4) 

40 DM$ = "31 2831 3031 3031 31 

30313031" 
50 MN$ = "JANUARYdnFEBRUARYD 

MARCH DDD D APRILD D D D MAY 

annnnnjUNEnnnnnjuLY 
nnnnaAUGUSTann 




so 
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SEPTEMBEROCTOBER D □ NOVEMBER D 

DECEMBERD" 
60 DN$ = "SUNMONTUEWEDTHUFR!SAT" 
70 PA$ = "MNLYQRLYANLYSNGL" 
80 TY$(0) = "FINANCES":TY$(1 ) = 

"APP0INTMENTS":TY$(2) = 

"CELEBRATI0NS":TY$(3) = "HOLIDAYS" 
90 DEF FNM(A) = INT((A/K2-INT(A/K2))* 

K2+0,5)*SGN(A/K2) 
100SV = 0:P = 0:MO = 0:DA = 
110 PRINT@256,"HAVE YOU EXISTING LISTS 

(Y/N)?" 
120 REM 

130CLS:GOSUB1030:CLS:P = 
140 IF C = 1 GOSUB770 
150 IF C = 2 GOSUB 2010 
160 IF C = 3 GOSUB 2460 
170 IF C>3 AND C<8THEN KB = C-4: 

GOSUB 1180:SV=1 
180 IF C = 8 GOSUB 1730:SV=0 
190 IF C = 9 AND SV = 1 THEN PRINT: 

PRINT"YOU HAVE NOT SAVED ANY 

CHANGES": PRINT'ARE YOU SURE YOU 

WANT TO QUIT": KB$ = "YN": GOSUB 

1590:!FKB = 2THENC = 
200 IF C<>9 THEN 120 
210CLS:PRINT"GOOD-BYE" 
220 END 

230 'GET LENGTH OF MONTH 
240MX = 0:A2=0 

250 K2 = 4:IF FNM(YR)=0 THEN A2 = 1 
260 K2 = 1 00:IF FNM(YR) = THEN A2 = 
270 K2 = 400:IF FNM(YR) = THEN A2 = 1 
280 IF KB = 2 THEN MX = A2 + 28 
290 IF KB <> 2 THEN MX = VAL(MID$ 

(DM$,KB*2-1,2)) 
300 KB = MX: RETURN 
310 'GET MARKER CHARACTER 
320 A3$ = "":N3 = 0:F3 = 0:M3=0 
330 IF P = 2 THEN RS = 32:GOTO 460 
340 IF KB = 5 AND MO = ME AND DA = DE 

THEN RS = 191 :GOTO 460 
350 IF KB = 5 THEN RS = 143:GOTO460 
360M3=VAL(LI$(KB,0)) 
370 REM 
380N3 = N3 + 1 
390A3$ = LI$(KB,N3) 
400 IF MID$(A3$,2,1) = ""THEN D = ELSE 

D = ASC(M1D$(A3$,2,1)) 
410 IF Do DA THEN 430 
420 KB$ = A3$:GOSUB 470:F3 = K2 
430 IF NOT(F3 = 1 OR N3>M3) THEN 370 
440 IF F3 = THEN RS = 32:GOTO 460 
450N3 = 159 + 16 f KB:RS = N3 
460KB = RS:RETURN 
470 'CHECK FOR ITEM IN MONTH 
480T4 = 0:Y4 = 0:F4 = 
490T4=ASC(MID$(KB$,1,1)) 
500Y4 = ASC(MID$(KB$,3,1)) 
510M4 = (Y4AND15) 
520Y4 = (FIX(Y4/16) + 17)*100 + 
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Is it easy to change the titles of 
the categories for the diary 
entries or add extra ones? 

Changing the names is quite easy and 
allows you to tailor the diary to suit your 
specific needs. You'll have to alter every 
occurence of the words and their initial 
letters in the program. 

For the Spectrum change Lines 130, 
820, 830, 900 and 1050 to 1080; for the 
Commodore, Lines 70, 80, 980 and 
1040; for the Acorn, Lines 90, 980 and 
1190 to 1220; and for the Dragon, Lines 
80, 940 and 1100 to 1130. 

Remember, though, that the program 
is designed to allow regular entries 
under the Finance and Celebrations 
categories — whatever new names you call 
them. So arrange your new diary with 
this in mind. 

Adding extra categories is more 
difficult and would mean altering 
many routines. It is not worth 
attempting unless you are an 
experienced programmer. 



ASC(MID$(KB$,4,1)) 
530 IF Y4>YR THEN K2 = 0:RETURN 
540 K2 = 3:IF (T4 = 1 AND M0> =M4) OR 

(T4 = 2AND FNM(M4-MO) = 0) OR 

(T4 = 3 AND M4 = M0) OR (T4 = 4 AND 

M4 = MOANDY4 = YR)THENF4 = 1 
550K2 = F4:RETURN 
560 'GET DAY NO. 
570YX=0:D2 = 0:M2 = 
580 Y2=YR — 1 
590 D2 = Y2"365 + FIX(Y2/4) - FIX 

(Y2/100} + FIX(Y2/400) 
600 IF M0 = 1 THEN 640 
610 FOR M2 = 1 T0M0-1 
620 KB = M2:G0SUB 230:D2 = D2 + KB 
630 NEXT 

640KB = D2+DA:RETURN 
650 'FIND EASTER DATE 
660N2 = 0:C2 = 0:D2 = 
670MS = MO:DS = DA 
680 DA = 1:MO = 3:GOSUB560:K2 = 7: 

DE = FNM(KB) 
690 N2 = FIX(YR/1 00) - 1 6:C2 = 3 + 

N2-FIX((N2 + 1)/3)-FIX(N2/4) 
700 K2 = 19:N2 = FNM(YR + 1):K2 = 30: 

D2 = FNM(C2 + (N2*19)) 
710IFN2>11 AND D2<27 THEN 

D2 = D2 — 1 ELSE IF N2< =11 AND 

D2 = 29THEND2 = 28 
720D2 = D2 + 21 



730D2 = D2 + 1:K2 = 7:IF 

FNM{D2 + DE)<> 1 THEN 730 
740 IF D2<32 THEN ME = 3 ELSE 

D2 = D2-31:ME=4 
750DE = D2:MO = MS:DA = DS 
760 RETURN 
770 'LOOK AT MON CAL 
780 REM 

790 GOSUB 2750:GOSUB 2720 
800 CLS 
810 PRINT,"UP/DOWN ARROWS ALTER 

MONTH" 
820 PRINT'USE clear TO RETURN TO MENU" 
830 PRINT:PRINT CHR$(159);TY$(0), 

CHR$(175);TY$(1) 
840 PRINLPRINT CHR$(191);TY$(2), 

CHR$(207);TY$(3) 
850 PRINT:PRINT"PRESS ANY KEY TO 

CONTINUE..." 
855IFINKEY$ = ""THEN855 
860MK = 5 
870 REM 
880 CLS 
890 GOSUB 2820:IFMK<4 THEN 

PRINT@19,TY$(MK) 
900 PRINT#-P:KB = 1:GOSUB 2150 
910 IF P = 2 THEN PRINT# — P 
920 PRINT # - P:T2 = MK:S2 = 1 :G0SUB 2240 
930 P=0 
940KB$ = "T" + CHR$(10) + "FACH" + 

CHR$(12):GOSUB1590:A = KB 
950 IF A=1 THENM0 = M0-1 
960 IF A=2 THEN M0 = M0 + T 
970 IF MO = 13THEN MO = 1:YR = YR + 1: 

GOSUB 650 
980 IF MO=0THEN M0 = 12:YR = YR-1: 

GOSUB 650 
990 IFA>2 AND A<7 THEN MK=A-3 
1000IFA<3THENMK = 5 
1010 IF A<>7 THEN 870 
1020 RETURN 

1030 'MENU RETURN CHOICE IN KB 
1040 PRINT'DDDDCALENDAR & DIARY 

PROGRAM □ □ DDDDD □"; 

STRING$(24,131) 
1050 PRINT TAB(13);"menu" 
1060 PRINT 
1070 PRINT1: LOOK AT MONTHLY 

CALENDAR" 
1080 PRINT"2: LOOK AT YEAR CALENDAR" 
1090 PRINT"3: LOOK AT MONTH DIARY" 
1100 PRINT"4: REVIEW/EDIT FINANCE" 
1110 PRINT'S: REVIEW/EDIT 

APPOINTMENTS" 
1120 PRINT"6: REVIEW/EDIT CELEBRATIONS" 
1130 PRINT"7: REVIEW/EDIT HOLIDAYS" 
1140 PRINT'S: SAVE THE LISTS" 
1150 PRINT'S: LEAVE THE PROGRAM" 
1160 PRINT:PRINTTAB(9);"PLEASE CHOOSE" 
1170 KB$ = "123456789":GOSUB 1590: 

C = KB:RETURN 
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CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 



Animation 
of UDGs in cliflhangcr 992-997 

using colour fill techniques 

A corn 955-959 

using GCOL 3 
Aam 999-1000 

Applications 

calendat and diary ptogTam 1010-1016 
hobbies file, extra options 947-952 

text-editor program 

852-856, 878-883, 914-920 
Auto-repeat, Commodore 64 976 



B 



BASIC 

adding instructions to 
Acorn, Dragon, Spectrum 

Ba6ic programming 
colour commands, Acorn 
Computer Aided Design 
designing a new typeface 
drawing conic sections 857-863 
mechanics, principles of 
multi-key control 
musical chords and harmonies 
programming function keys 
secret codes 
speeding up BASIC programs 

Binary search routine 



844-851 

953-959 
998-1004 
838-843 
, 889-895 
933-939 
974-979 
985-99! 
825-829 
960-965 
921-927 
926-927 



1010-1016 



985-986 



986-991 



858 
863, 893-894 



Calendar program 

pan 1 
Chords, musical 

definition 

programs to play 

Acorn, Commodore 64 
Ciphers 

see codes, secret 
Circles 

drawing 

uses of 
Cliffhanger game 

part 1— title page 904-913 

part 2 — adding instructions 928-932 

part 3 — adding a tune 966-973 

part 4 — graphics and merging 992-997 
Codes, secret 960-965 

Colour 

filling in with 

Acorn 953-959 

routines for changing 

Commodore 64 872-877 

Computer Aided Design 

rubber-banding and picking 

and dragging 998-1004 

Conic sections 857-863, 889-895 

Cryptography 960-965 

Curves, drawing 857-863, 889-895 



Ellipses 

drawing 858-859 

uses of 863,890-891,894-895 

Engineering 
see Mechanics 

Envelope, parameters of for sound 

Acorn, Commodore 64 968-971 

in musical harmony programs 986-991 



Filling in with colour 

Acorn 953-959 

Function keys, programming 

Acorn, Commodore 64, Vic 20 826-829 



Games 

cliffhanger 

904-913, 928-932, 966-973, 992-997 
goldmine 830-837, 864-871 

multi-key control for 974-979 

Othello 980-984, 1005-1009 

wordgame 899-903, 940-945 

GCOL 3, Acorn 

use Df for animation 999-1000 

Goldmine game 

part 1— basic routines 830-837 

part 2 — option subroutines 864-871 

Graphics 
colour commands, Acorn 953-959 

effects using curves 857-863, 889-895 
hi-res 
for custom typeface 838-843 

setting up new commands 

Commodore 64 872-877 

in cliffhanger game 992-997 

in goldmine game 832-837,870-871 
in othello game 982, 984 

picking and dragging 1000-1004 

rubber-banding 998-1000 



H 



Harmonies, in music 

programs for 
Acorn, Commodore 64 
Hobbies file, extra options for 
Hyperbolas 

drawing 

uses of 863, 894-895 



Instructions, adding to BASIC 

Acorn, Dragon, Specman 844-851 



Diary program 

pan 1 
Digital clock routine 



K 



detecting 

Acorn, Commodore 64, Vic 20 827-829 

in cliffhanger game 929-932 

how they work 826, 974 

multiple, programming for 974-979 



Letter-generator program 838-843 

Lines 

drawing by rubber-banding 998-1000 



R 



M 

Machine code 



992-997 



games programming 

see cliffhanger 
merging routines 
routines for hi-res graphics 

Commodore 64 872-877 

routine to alter BASIC 844-849 

timer routine 896-898 

tune routine 966-973 

Mathematical functions 
in mechanics 935 

speedy use of 923-924 

to draw, curves 857-863,889-895 

Mechanics 

programs to show principles 933-939 

Memory 
saving vs speed 923 

storing new keystrokes in 

Acorn, Commodore 64, Vic 20 827-829 
storing new typeface in 842 

Merging machine code routines 992-997 

MIDI interfaces 990 

Multi-key control, programming for 

974-979 

Music 
chords and harmonies 985-991 

machine code routine for 966-973 



Robotics 
Rubber-banding 



884-888 
998-1000 



SAVEing 

problems with when merging 992-997 

Scaling 

custom typeface 841-843 

parabolas and hyperbolas 859-861, 863 

Search routines 

binary and serial 924-927 

in text-editor program 914-920 

Serial search routine 924-925 

SID chip, Commodore 64 968 

in music programming 986-991 

Sort routines 

in hobbies He program 947-952 

in text-editor program 914-920 

Speeding up BASIC programs 921-927 

Sprites, Commodore 64 

in cliffhanger game 993-995 



Text-editor program 

part 1 — basic routines 852-856 

part 2— editing facilities 878-883 

part 3 — sorting, searching, 

formatting and printout 914-920 

Three Blind Mice program 

Acorn, Commodore 64 990-991 

Timer routine 
for BASIC lines 922 

machine code 896-898 

Typeface, setting up new 838-843 



u 





n 




UDGs 






\j 




in cliffhanger game 


992-997 




Operating system software 










Acorn, Commodore 64, Vic 20 


826, 828 








Othello board game 










pan 1 


980-984 






986-991 


part 2 


1005-1009 


V 




947-952 


Overwriting, avoiding 


994-997 










Variables 




860-861 






managing for program speed 


923-925 



1010-1016 
896-898 



Keyboard, matrix of 
Keypresses 



974-976 



Parabolas 






drawing 


859-860 


w 


uses of 


863, 891-893 


Peripherals 




Waveforms 


robotics 


884-888 


use of for music 


Picking and dragging 


1000-1004 


Commodore 64 986 


PLOT 




When the Saints Go Marching In 


new commands, Acorn 


953-959 


program 


Polygons, drawing 


893-894 


Acorn, Commodore 64 986-989 


PROCedures, Acorn 




Wordgame 


advantages of 


922, 924 


part 1— basic routines 899-903 


use of to fill with colour 


954-959 


part 2^adding the options 940-945 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 



COMING IN ISSUE 33. . . 



O Learn how to use PAGED GRAPHICS. 
Related to cartoon films and 'flicker 
books', it is a really useful technique to 
add to your animation armoury 

LJ Delve further into the secret world of 
codes. Learn about CODE BREAKING 
and how to use more sophisticated 
CODING TECHNIQUES 

LJ More and more electronic one-armed 
bandits are infiltrating the arcades. Start 
entering the FRUIT MACHINE 
program. If you are addicted to push- 
button gambling, this program could 
save you a fortune! 

OThe stage is set for CLIFFHANGER. 
Now is the time to push the title page 
aside and bring on the cliff and the sky by 
adding the SCROLL ROUTINES 

_/ Is your life a seething morass of 
confusion? Don't worry, help is at hand 
with part two of the CALENDAR and 
DIAR Y program 



A MARSHALL CAVENDISH ■ ■ COMPUTER COURSE IN WEEKLY PARTS 



LEARN PROGRAMMING - FOR FUN AND THE FUTURE 
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